diff --git a/scheme/rts/channel-io.scm b/scheme/rts/channel-io.scm
index b080d2c..7ec8522 100644
--- a/scheme/rts/channel-io.scm
+++ b/scheme/rts/channel-io.scm
@@ -19,12 +19,11 @@
 						(cdr old)))))))
   (set-interrupt-handler! (enum interrupt i/o-write-completion)
 			  (make-i/o-completion-handler
-			   (make-i/o-completion-handler
-			    (lambda (cell channel)
-			      (let ((old (cell-ref cell)))
-				(cell-set! cell
-					   (cons (car old)
-						 (cons channel (cdr old))))))))))
+			   (lambda (cell channel)
+			     (let ((old (cell-ref cell)))
+			       (cell-set! cell
+					  (cons (car old)
+						(cons channel (cdr old)))))))))
 
 ; The warning message is printed using DEBUG-MESSAGE because to try to make
 ; sure it appears in spite of whatever problem's the I/O system is having.