diff --git a/code/lispinit.lisp b/code/lispinit.lisp
index 1746b790777598dcecf6a71de50a943bea6d3bea..fb876d696f346025e6d7c7d02359549ae2748566 100644
--- a/code/lispinit.lisp
+++ b/code/lispinit.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.56 1998/04/10 11:42:42 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.57 1998/09/26 18:24:42 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -453,13 +453,12 @@
             Must be a non-negative, non-complex number."
 	   n))
   (multiple-value-bind (sec usec)
-		       (if (integerp n)
-			   (values n 0)
-			   (values (truncate n)
-				   (truncate (* n 1000000))))
+    (if (integerp n)
+	(values n 0)
+	(multiple-value-bind (sec frac)(truncate n)
+	  (values sec(truncate frac 1e-6))))
     (unix:unix-select 0 0 0 0 sec usec))
   nil)
-
 
 ;;;; SCRUB-CONTROL-STACK
 
diff --git a/code/multi-proc.lisp b/code/multi-proc.lisp
index 9cd4c5d1078b3f51c3b83718af844b4a7f2de300..d5a7c8d7e885ff0c6bcd224acda328ba7d348ce6 100644
--- a/code/multi-proc.lisp
+++ b/code/multi-proc.lisp
@@ -1,10 +1,11 @@
+;;; -*- Mode: Lisp; Package: Multiprocessing -*-
 ;;;
 ;;; **********************************************************************
 ;;; This code was written by Douglas T. Crosher and has been placed in
 ;;; 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.30 1998/08/14 07:15:09 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.31 1998/09/26 18:24:42 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1518,8 +1519,8 @@
 	 (multiple-value-bind (sec usec)
 	     (if (integerp n)
 		 (values n 0)
-		 (values (truncate n)
-			 (truncate (* n 1000000))))
+		 (multiple-value-bind (sec frac)(truncate n)
+		   (values sec (truncate frac 1e-6))))
 	   (unix:unix-select 0 0 0 0 sec usec))
 	 nil)
 	(t