diff --git a/scheme/vm/s48-channel.scm b/scheme/vm/s48-channel.scm
index 6833207..19dbe32 100644
--- a/scheme/vm/s48-channel.scm
+++ b/scheme/vm/s48-channel.scm
@@ -108,6 +108,10 @@
   (set! *pending-channels* (delq channel *pending-channels*))
   0)
 
+(define (add-pending-channel channel input?)
+  (set! *pending-channels* (cons channel *pending-channels*))
+  #t)
+
 ;----------------
 ; Events
 ;
@@ -147,7 +151,7 @@
 	      *pending-channels*)
 	 => (lambda (channel)
 	      (set! *pending-channels* (delq channel *pending-channels*))
-	      (values (enum events io-completion-event)
+	      (values (enum events io-read-completion-event)
 		      channel
 		      0)))
 	(else