diff --git a/scheme/read.sld b/scheme/read.sld
index 3491ac51..901e05a3 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -703,7 +703,7 @@
     (let ((fp (if (null? args)
                   (current-input-port)
                   (car args))))
-      (if (reading-from-file? fp)
+      (if #t ;(reading-from-file? fp)
           (call-parse2 fp)
           (parse fp '() '() #f #f 0 (reg-port fp))))))