@@ -28,11 +28,11 @@
     ((_ (name arg ...) body ...)
      (define-syntax name (syntax-rules () ((name arg ...) (begin body ...)))))))
 
 ;; (define-syntax common:handle-exceptions
 ;;   (syntax-rules ()
-;;     ((_ exn-in errstmt ...)(common:debug-handle-exceptions #t exn-in errstmt ...))))
+;;     ((_ exn-in errstmt ...)(handle-exceptions exn-in errstmt ...))))
 
 (define-syntax common:debug-handle-exceptions
   (syntax-rules ()
     ((_ debug exn errstmt body ...)
      (if debug