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)]))))))