diff --git a/collects/typed-scheme/utils/tc-utils.ss b/collects/typed-scheme/utils/tc-utils.ss
index 6c431e8d..e6547683 100644
--- a/collects/typed-scheme/utils/tc-utils.ss
+++ b/collects/typed-scheme/utils/tc-utils.ss
@@ -42,7 +42,7 @@ don't depend on any other portion of the system
   (let ([l (current-logger)])
     (when (and (warn-unreachable?)
                (log-level? l 'warning)
-               (eq? (syntax-source-module e) (syntax-source-module (orig-module-stx)))
+               (and (orig-module-stx) (eq? (syntax-source-module e) (syntax-source-module (orig-module-stx))))
 	       (syntax-source-module e))
       (log-message l 'warning (format "Typed Scheme has detected unreachable code: ~e" (syntax->datum (locate-stx e)))
                    e))))