diff --git a/quad/quad/main.rkt b/quad/quad/main.rkt
index 99cbfae7..1a3b9931 100644
--- a/quad/quad/main.rkt
+++ b/quad/quad/main.rkt
@@ -13,4 +13,4 @@
      [else (typeset-fit (atomize main-quad))])))
 
 (module reader syntax/module-reader
-  "main.rkt")
\ No newline at end of file
+  quad/main)
\ No newline at end of file
diff --git a/quad/quad/text.rkt b/quad/quad/text.rkt
index 46023633..28678b5b 100644
--- a/quad/quad/text.rkt
+++ b/quad/quad/text.rkt
@@ -6,7 +6,7 @@ but substitutes a Scribble-style text-based reader
 |#
 
 (module reader syntax/module-reader
-  "main.rkt"
+  quad/main
   #:read quad-read
   #:read-syntax quad-read-syntax
   #:whole-body-readers? #t ;; need this to make at-reader work