diff --git a/scheme/env/command-level.scm b/scheme/env/command-level.scm
index 037a417..b3029d0 100644
--- a/scheme/env/command-level.scm
+++ b/scheme/env/command-level.scm
@@ -329,9 +329,10 @@
   (if (not terminating?)
       (begin
 	(set-exit-status! #f)
-	(steal-channel-port! (command-input))
-	(steal-channel-port! (command-output))
-	(steal-channel-port! (command-error-output))))
+	(steal-port! (command-input))
+	(steal-port! (command-output))
+;	(steal-port! (command-error-output))))
+	))
   (run-threads
     (round-robin-event-handler (command-level-queue level)
 			       command-quantum