diff --git a/collects/scheme/file.ss b/collects/scheme/file.ss
index 6075feccb4..624746de0c 100644
--- a/collects/scheme/file.ss
+++ b/collects/scheme/file.ss
@@ -65,13 +65,7 @@
                (not (directory-exists? base)))
       (make-directory* base))
     (unless (directory-exists? dir)
-      (with-handlers ([exn:fail:filesystem?
-                       (lambda (x)
-                         (unless (and (regexp-match #rx"cannot make directory:.+File exists"
-                                                    (exn-message x))
-                                      (directory-exists? dir))
-                           (raise x)))])
-        (make-directory dir)))))
+      (make-directory dir))))
 
 (define (make-temporary-file [template "mztmp~a"] [copy-from #f] [base-dir #f])
   (with-handlers ([exn:fail:contract?