diff --git a/scsh/newports.scm b/scsh/newports.scm
index 68e16a2..a7b5c1a 100644
--- a/scsh/newports.scm
+++ b/scsh/newports.scm
@@ -840,7 +840,7 @@
 
 	    (call-with-values
 	     (lambda ()
-	       (wait-for-channels read-channels write-channels timeout))
+	       (wait-for-channels read-channels write-channels (* 1000 timeout)))
 	     ;; re-enables interrupts
 	     (lambda (ready-read-channels ready-write-channels)
 	       (let ((ready-read-port/fds '())
@@ -920,7 +920,7 @@
 	
 	    (call-with-values
 	     (lambda ()
-	       (wait-for-channels read-channels write-channels timeout))
+	       (wait-for-channels read-channels write-channels (* 1000 timeout)))
 	     ;; re-enables interrupts
 	     (lambda (ready-read-channels ready-write-channels)
 
@@ -1019,7 +1019,7 @@
 
     (call-with-values
      (lambda ()
-       (wait-for-channels read-channels write-channels timeout))
+       (wait-for-channels read-channels write-channels (* 1000 timeout)))
      ;; re-enables interrupts
      (lambda (ready-read-channels ready-write-channels)
        (append (filter (lambda (read-port)