diff --git a/collects/framework/private/finder.ss b/collects/framework/private/finder.ss
index 640b3263..286fb03f 100644
--- a/collects/framework/private/finder.ss
+++ b/collects/framework/private/finder.ss
@@ -743,10 +743,20 @@
 		     [filter #f]
 		     [filter-msg (string-constant file-wrong-form)]
 		     [parent-win (dialog-parent-parameter)])
-	  (let ([f (get-file
-		    prompt 
-		    parent-win
-		    directory)])
+	  (let ([f 
+                 (if (eq? (system-type) 'windows)
+                     (get-file
+                      prompt 
+                      parent-win
+                      directory
+                      #f
+                      ""
+                      null
+                      '(("Scheme (.scm)" "*.scm") ("Other" "*.*")))
+                     (get-file
+                      prompt 
+                      parent-win
+                      directory))])
 
 	    (if f
 		(if (or (not filter) (filter-match? filter f filter-msg))