diff --git a/code/multi-proc.lisp b/code/multi-proc.lisp
index 3c165bab9c6f79c6c42be48a569cc2f6af8c42fe..d7195974f29695c8597d8df80be92a73890e7ba2 100644
--- a/code/multi-proc.lisp
+++ b/code/multi-proc.lisp
@@ -5,7 +5,7 @@
 ;;; the Public domain, and is provided 'as is'.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.38 2000/08/12 15:05:24 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.39 2000/08/19 17:48:19 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -999,6 +999,10 @@
    (setf (process-wait-timeout process) nil)
    (setf (process-wait-return-value process) nil)
    (setf (process-interrupts process) nil)
+   (setf (process-scheduled-real-time process) (get-real-time))
+   (setf (process-scheduled-run-time process) (get-run-time))
+   (setf (process-%real-time process) 0d0)
+   (setf (process-%run-time process) 0d0)
    (setf (process-state process) :active)
    (push process *all-processes*))
   process)