diff --git a/collects/deinprogramm/deinprogramm-langs.rkt b/collects/deinprogramm/deinprogramm-langs.rkt
index 87cb5f7b08..976840b6da 100644
--- a/collects/deinprogramm/deinprogramm-langs.rkt
+++ b/collects/deinprogramm/deinprogramm-langs.rkt
@@ -25,6 +25,7 @@
 	 lang/debugger-language-interface
 	 lang/run-teaching-program
 	 lang/private/continuation-mark-key
+         lang/private/rewrite-error-message
 	 
 	 (only-in test-engine/scheme-gui make-formatter)
 	 test-engine/scheme-tests
@@ -1187,7 +1188,7 @@
       (define (teaching-languages-error-display-handler msg exn)
           
           (if (exn? exn)
-              (display (exn-message exn) (current-error-port))
+              (display (get-rewriten-error-message exn) (current-error-port))
               (eprintf "uncaught exception: ~e" exn))
           (eprintf "\n")