diff --git a/scsh/scsh.scm b/scsh/scsh.scm
index b580c9f..02039f0 100644
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@@ -29,7 +29,7 @@
 (define (really-fork/pipe forker maybe-thunk)
   (receive (r w) (pipe)
     (let ((proc (forker)))
-      (cond (pid		; Parent
+      (cond (proc		; Parent
 	     (close w)
 	     (move->fdes r 0))
 	    (else		; Child