diff --git a/module/mes/scm.mes b/module/mes/scm.mes
index 042104fe..2e488be6 100644
--- a/module/mes/scm.mes
+++ b/module/mes/scm.mes
@@ -163,7 +163,9 @@
   (display who (current-error-port))
   (display ":" (current-error-port))
   (display rest (current-error-port))
-  (newline (current-error-port)))
+  (newline (current-error-port))
+  (display "exiting...\n" (current-error-port))
+  (exit 1))
 
 (define (syntax-error message . rest)
   (display "syntax-error:" (current-error-port))