diff --git a/collects/drscheme/private/auto-language.ss b/collects/drscheme/private/auto-language.ss
index a066aa90d7..ce35d82b7e 100644
--- a/collects/drscheme/private/auto-language.ss
+++ b/collects/drscheme/private/auto-language.ss
@@ -5,7 +5,7 @@
   (provide pick-new-language)
   
   (define (pick-new-language text module-spec->language module-language)
-    (with-handlers ((exn:fail:read? void))
+    (with-handlers ((exn:fail:read? (λ (x) #f)))
       (let ([found-language? #f])
         (let* ([tp (open-input-text-editor text)]
                [l (with-handlers ([exn:fail:contract? (λ (x) eof)])