diff --git a/collects/macro-debugger/view/stepper.ss b/collects/macro-debugger/view/stepper.ss
index e910693..fe28c3d 100644
--- a/collects/macro-debugger/view/stepper.ss
+++ b/collects/macro-debugger/view/stepper.ss
@@ -390,7 +390,7 @@
     (define/private (get-original-part deriv)
       (let ([deriv* (adjust-deriv/lift deriv)])
         deriv*))
-    
+
     ;; adjust-deriv/lift : Derivation -> (list-of Derivation)
     (define/private (adjust-deriv/lift deriv)
       (match deriv
@@ -403,7 +403,8 @@
 
     ;; adjust-deriv/top : Derivation -> Derivation
     (define/private (adjust-deriv/top deriv)
-      (if (syntax-source (wderiv-e1 deriv))
+      (if (or (syntax-source (wderiv-e1 deriv))
+              (p:module? deriv))
           deriv
           ;; It's not original...
           ;; Strip out mzscheme's top-interactions