diff --git a/scsh/network.scm b/scsh/network.scm
index a44ed21..071040a 100644
--- a/scsh/network.scm
+++ b/scsh/network.scm
@@ -167,8 +167,10 @@
 	(let* ((fd  (%socket pf type protocol))
 	       (in  (make-input-fdport fd 0))
 	       (out (dup->outport in)))
-	  (set-fdes-status in open/non-blocking)
-	  (set-fdes-status out open/non-blocking)
+	  (set-fdes-status in open/non-blocking) ; not necessary, because
+						 ; the next line will
+						 ; cause it anyway
+	  (set-fdes-status out open/non-blocking) ; see c/unix/fd-io.c
 	  (make-socket pf in out)))))