diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm
index de093f7..c185653 100644
--- a/scsh/syscalls.scm
+++ b/scsh/syscalls.scm
@@ -112,7 +112,7 @@
   (error "Yikes! %exit returned."))
 
 
-(define-stubless-foreign %%fork () "fork")
+(define-stubless-foreign %%fork () "scsh_fork")
 
 ;;; Posix waitpid(2) call.
 (define-stubless-foreign %wait-pid/errno-list (pid options)
@@ -599,13 +599,13 @@
 (define-stubless-foreign pipe-fdes () "scheme_pipe")
 
 (define (pipe)
-  (apply (pipe-fdes) 
-	 (lambda (r-fd w-fd)
+  (apply (lambda (r-fd w-fd)
 	   (let ((r (fdes->inport  r-fd))
 		 (w (fdes->outport w-fd)))
 	     (release-port-handle r)
 	     (release-port-handle w)
-	     (values r w)))))
+	     (values r w)))
+	 (pipe-fdes)))
 
 (define-foreign %read-fdes-char
   (read_fdes_char (fixnum fd))