diff --git a/scheme/rts/channel-io.scm b/scheme/rts/channel-io.scm
index 77bce3b..b080d2c 100644
--- a/scheme/rts/channel-io.scm
+++ b/scheme/rts/channel-io.scm
@@ -99,8 +99,8 @@
 
 (define (wait-for-channels read-channels write-channels timeout)
   ;; check if we're borked from the outset
-  (for-each channel-has-waiter? read-channels)
-  (for-each channel-has-waiter? write-channels)
+  (for-each channel-check-waiter read-channels)
+  (for-each channel-check-waiter write-channels)
 
   (let ((thread-cell (make-cell (current-thread)))
 	(ready-channels-cell (make-cell (cons '() '())))