diff --git a/collects/drscheme/private/language.ss b/collects/drscheme/private/language.ss
index 47cdae2694..9e5228a149 100644
--- a/collects/drscheme/private/language.ss
+++ b/collects/drscheme/private/language.ss
@@ -1086,31 +1086,12 @@
      (λ ()
        (with-handlers ([(λ (x) #t)
                         (λ (x)
-                          (parameterize ([current-error-port original-output-port])
-                            ((error-display-handler) 
-                             (if (exn? x)
-                                 (exn-message x)
-                                 (format "~s" x))
-                             x))
-                          (printf "~a\n" (if (exn? x)
-                                             (exn-message x)
-                                             (format "~s" x))))])
+                          (display (exn-message x))
+                          (newline))])
          (when module-spec
            (if use-copy?
                (namespace-require/copy module-spec)
-               (let ([t (current-thread)])
-                 (thread
-                  (λ () 
-                    (let loop ([i 5])
-                      (unless (zero? i)
-                        (printf "sleeping ... ~a\n" i)
-                        (sleep 1)
-                        (loop (- i 1))))
-                    (printf "breaking...\n")
-                    (break-thread t)
-                    (printf "broke\n")))
-                 (break-enabled #t)
-                 (namespace-require/constant module-spec))))
+               (namespace-require/constant module-spec)))
          (when transformer-module-spec
            (namespace-require `(for-syntax ,transformer-module-spec)))))))