diff --git a/sugar/debug.rkt b/sugar/debug.rkt
index 1c125b2..75016d3 100644
--- a/sugar/debug.rkt
+++ b/sugar/debug.rkt
@@ -16,7 +16,7 @@
   
   (define (make-debug-readtable [rt (current-readtable)])
     (make-readtable rt
-                    #\^ 'non-terminating-macro report-proc))
+                    #\^ 'dispatch-macro report-proc))
 
   
   (define (wrap-reader reader)
@@ -81,4 +81,4 @@
        (lambda (key defval)
          (define (fallback) (if proc (proc key defval) defval))
          (case key
-           [else (fallback)]))))))
\ No newline at end of file
+           [else (fallback)]))))))
diff --git a/sugar/test/debug-meta-lang.rkt b/sugar/test/debug-meta-lang.rkt
index 951aa5d..ecc3d82 100644
--- a/sugar/test/debug-meta-lang.rkt
+++ b/sugar/test/debug-meta-lang.rkt
@@ -6,10 +6,10 @@
       [only-in "completely unexpected!"]
       [report "well, not really"])
   (parameterize ([current-error-port out])
-    ^5)
+    #^5)
   (check-equal? (get-output-string out) "5 = 5\n"))
 (let ([out (open-output-string)]
       [report/line "outta the blue!"])
   (parameterize ([current-error-port out])
-    ^^5)
+    #^^5)
   (check-equal? (get-output-string out) "5 = 5 on line 14\n"))