diff --git a/collects/swindle/extra.ss b/collects/swindle/extra.ss
index 1794cfa794..d34c905203 100644
--- a/collects/swindle/extra.ss
+++ b/collects/swindle/extra.ss
@@ -606,7 +606,8 @@
   (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))
+  (port-write-handler   (current-error-port)  write-object)
+  (current-print write-object))
 
 ;;; ---------------------------------------------------------------------------
 ;;>>... Simple matching
diff --git a/collects/swindle/tool.ss b/collects/swindle/tool.ss
index ffcbd0b7fb..dd9fa09615 100644
--- a/collects/swindle/tool.ss
+++ b/collects/swindle/tool.ss
@@ -9,8 +9,7 @@
          mzlib/list
          mred
          net/sendurl
-         string-constants
-         swindle/extra)
+         string-constants)
 (provide tool@)
 
 (define tool@