diff --git a/collects/test-engine/test-display.scm b/collects/test-engine/test-display.scm
index 8c3e5017d1..797fb5f2f0 100644
--- a/collects/test-engine/test-display.scm
+++ b/collects/test-engine/test-display.scm
@@ -32,6 +32,7 @@
                            (lambda () (put-preferences '(test:test-window:docked?) '(#f)) #f))))
     
     (define/public (report-success)
+      (printf "calling report-success~n")
       (when current-rep
         (unless current-tab
           (set! current-tab (send (send current-rep get-definitions-text) get-tab)))
@@ -39,13 +40,19 @@
           (set! drscheme-frame (send current-rep get-top-level-window)))
         (let ([curr-win (and current-tab (send current-tab get-test-window))]
               [content (make-object (editor:standard-style-list-mixin text%))])
+          (printf "current-tab ~a , curr-win ~a ~n" current-tab curr-win) 
           (send this insert-test-results content test-info src-editor)
+          (printf "inserted test results~n")
           (send content lock #t)
+          (printf "locked content~n")
           (when curr-win (send curr-win update-editor content))
+          (printf "updated test-window editor~n")
           (when current-tab (send current-tab current-test-editor content))
+          (printf "editors updated~n")
           (when (and curr-win (docked?))
             (send drscheme-frame display-test-panel content)
-            (send curr-win show #f)))))
+            #;(send curr-win show #f))
+          (printf "done~n"))))
     
     (define/public (display-results)
       (let* ([curr-win (and current-tab (send current-tab get-test-window))]
@@ -229,7 +236,7 @@
     (super-instantiate
      ((string-constant test-engine-window-title) #f 400 350))
 
-    (define editor #f)
+    #;(define editor #f)
     (define switch-func void)
     (define disable-func void)
     (define close-cleanup void)
@@ -269,8 +276,8 @@
             (make-object grow-box-spacer-pane% button-panel)))
 
     (define/public (update-editor e)
-      (set! editor e)
-      (send content set-editor editor))
+      #;(set! editor e)
+      (send content set-editor e))
 
     (define/public (update-switch thunk)
       (set! switch-func thunk))
diff --git a/collects/test-engine/test-engine.scm b/collects/test-engine/test-engine.scm
index bddda28f6f..6c502d0a16 100644
--- a/collects/test-engine/test-engine.scm
+++ b/collects/test-engine/test-engine.scm
@@ -140,7 +140,7 @@
              (send this display-results display-rep display-event-space)]))))
 
     (define/public (display-success port event)
-      (when event
+      #;(when event
         (parameterize ([(dynamic-require 'scheme/gui 'current-eventspace) event])
           ((dynamic-require 'scheme/gui 'queue-callback)
             (lambda () (send test-display report-success)))))