diff --git a/collects/framework/prefs.ss b/collects/framework/prefs.ss
index 3036a075..651756aa 100644
--- a/collects/framework/prefs.ss
+++ b/collects/framework/prefs.ss
@@ -9,6 +9,7 @@
   (define preferences-filename (build-path (find-system-path 'pref-dir)
 					   (case (system-type)
 					     [(macos) "MrEd Preferences"]
+					     [(windows) "mred.pre"]
 					     [else ".mred.prefs"])))
   
   (define preferences (make-hash-table))