diff --git a/collects/macro-debugger/model/reductions.ss b/collects/macro-debugger/model/reductions.ss
index 037d68e..8062e26 100644
--- a/collects/macro-debugger/model/reductions.ss
+++ b/collects/macro-debugger/model/reductions.ss
@@ -612,7 +612,7 @@
 ;; lift-error
 (define (lift-error sym . args)
   (apply fprintf (current-error-port) args)
-  (when #t
+  (when #f
     (apply error sym args)))
 
 ;; opaque-table