diff --git a/collects/mred/prefs.ss b/collects/mred/prefs.ss
index f64ea19c..56fa5572 100644
--- a/collects/mred/prefs.ss
+++ b/collects/mred/prefs.ss
@@ -132,8 +132,8 @@
       (lambda ()
 	(mred:debug:printf 'prefs "setting prefs to default values")
 	(hash-table-for-each
-	 (lambda (p v) (set-preference p v))
-	 defaults)
+	 defaults
+	 (lambda (p v) (set-preference p v)))
 	(mred:debug:printf 'prefs "finished setting prefs to default values")))
     
     (define set-preference-default