diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm
index 2e36586..8f8a4e6 100644
--- a/scsh/syscalls.scm
+++ b/scsh/syscalls.scm
@@ -17,12 +17,9 @@
 
 ;;; Move this to somewhere else as soon as Marc published his SRFI
 (define (continuation-capture receiver)
-  (call-with-current-continuation
-   (lambda (k)
-     (receiver (lambda (thunk)
-		 (call-with-values 
-		  thunk
-		  k))))))
+  ((call-with-current-continuation
+    (lambda (cont)
+      (lambda () (receiver cont))))))
 
 (define (continuation-graft cont thunk)
   (cont thunk))
@@ -678,9 +675,9 @@
 ; De-released -- not POSIX and not on SGI systems.
 ; (define-foreign usleep (usleep (integer usecs)) integer)
 
-(define (sleep secs) (sleep-until (+ secs (time))))
+(define (process-sleep secs) (process-sleep-until (+ secs (time))))
 
-(define (sleep-until when)
+(define (process-sleep-until when)
   (let* ((when (floor when))	; Painful to do real->int in Scheme.
 	 (when (if (exact? when) when (inexact->exact when))))
     (let lp ()