diff --git a/scsh/newports.scm b/scsh/newports.scm
index 50fd4bc..23b4028 100644
--- a/scsh/newports.scm
+++ b/scsh/newports.scm
@@ -17,7 +17,9 @@
 	 (ch-number  (channel-os-index ch)))
     (if (not (= (fdport-data:revealed fdport*) 0))
 	(table-set! fdports ch-number fdport)
-	(weak-table-set! fdports ch-number fdport))))
+	(begin 
+	  (weak-table-set! fdports ch-number fdport)
+	  (%set-cloexec (fdport-data:fd (port-data fdport)) #t)))))
 
 (define (maybe-fdes->port fdes)
   (weak-table-ref fdports fdes))