diff --git a/extra/unix/process/process.factor b/extra/unix/process/process.factor
index a927d35ef5..fac95eabaa 100644
--- a/extra/unix/process/process.factor
+++ b/extra/unix/process/process.factor
@@ -27,5 +27,4 @@ IN: unix.process
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: with-fork ( child parent -- pid ) fork [ zero? -rot if ] keep ; inline
-
+: with-fork ( child parent -- ) fork dup zero? -roll swap curry if ; inline
\ No newline at end of file