diff --git a/scsh/newports.scm b/scsh/newports.scm
index 0776c34..a6a7bc6 100644
--- a/scsh/newports.scm
+++ b/scsh/newports.scm
@@ -777,7 +777,8 @@
 (define (make-select !?)
   (lambda (read-vec write-vec exception-vec . maybe-timeout)
     (let ((read-list (vector->list read-vec))
-	  (write-list (vector->list write-vec)))
+	  (write-list (vector->list write-vec))
+	  (timeout (:optional maybe-timeout #f)))
 
       ((structure-ref interrupts disable-interrupts!))
     
@@ -839,7 +840,7 @@
 	
 	      (call-with-values
 	       (lambda ()
-		 (apply wait-for-channels read-channels write-channels maybe-timeout))
+		 (wait-for-channels read-channels write-channels timeout))
 	       ;; re-enables interrupts
 	       (lambda (ready-read-channels ready-write-channels)