diff --git a/collects/swindle/extra.ss b/collects/swindle/extra.ss
index d34c905203..1794cfa794 100644
--- a/collects/swindle/extra.ss
+++ b/collects/swindle/extra.ss
@@ -606,8 +606,7 @@
   (port-display-handler (current-output-port) display-object)
   (port-display-handler (current-error-port)  display-object)
   (port-write-handler   (current-output-port) write-object)
-  (port-write-handler   (current-error-port)  write-object)
-  (current-print write-object))
+  (port-write-handler   (current-error-port)  write-object))
 
 ;;; ---------------------------------------------------------------------------
 ;;>>... Simple matching
diff --git a/collects/swindle/tool.ss b/collects/swindle/tool.ss
index dd9fa09615..b18b62ddf3 100644
--- a/collects/swindle/tool.ss
+++ b/collects/swindle/tool.ss
@@ -103,6 +103,7 @@
                        [(none) 0]
                        [(debug) 1]
                        [(debug/profile) 2]))])))
+        #;#;
         (define last-port #f)
         (define/override (render-value/format value settings port width)
           (unless (eq? port last-port)