diff --git a/collects/typed-scheme/lang/reader.ss b/collects/typed-scheme/lang/reader.ss
index 2744227875..554ba60211 100644
--- a/collects/typed-scheme/lang/reader.ss
+++ b/collects/typed-scheme/lang/reader.ss
@@ -2,13 +2,12 @@
 (require (prefix-in r: "../typed-reader.ss")
          (only-in syntax/module-reader wrap-read-all))
 
-(define (*read in)
-  (wrap-read-all 'typed-scheme in r:read))
+(define (*read in modpath line col pos)
+  (wrap-read-all 'typed-scheme in r:read modpath #f line col pos))
 
-(define (*read-syntax src in)
-  (wrap-read-all 'typed-scheme
-                 in
-                 (lambda (in)
-                   (r:read-syntax src in))))
+(define (*read-syntax src in modpath line col pos)
+  (wrap-read-all
+   'typed-scheme in (lambda (in) (r:read-syntax src in))
+   modpath src line col pos))
 
 (provide (rename-out [*read read] [*read-syntax read-syntax]))