diff --git a/code/hash-new.lisp b/code/hash-new.lisp
index e160c50fa83d2ac75b51677a23d96edb3aeb52f1..79ef7584c18d12f967a62f29da710dc2806eb049 100644
--- a/code/hash-new.lisp
+++ b/code/hash-new.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/hash-new.lisp,v 1.12 2000/01/16 20:10:39 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.13 2000/07/06 04:34:02 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -313,7 +313,7 @@
 	      (fixnum
 	       (+ rehash-size old-size))
 	      (float
-	       (the index (round (* rehash-size old-size)))))))
+	       (the index (values (round (* rehash-size old-size))))))))
 	 (new-kv-vector (make-array (* 2 new-size) :initial-element :empty))
 	 (new-next-vector (make-array new-size
 				      :element-type '(unsigned-byte 32)
diff --git a/code/hash.lisp b/code/hash.lisp
index 6622a643773201579cf2582cf30e3796df83b255..7caae1845d8c4aabe3dc943883c778dbb36eea09 100644
--- a/code/hash.lisp
+++ b/code/hash.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/hash.lisp,v 1.36 2000/01/16 20:10:39 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.37 2000/07/06 04:34:03 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -350,7 +350,7 @@
 		  (fixnum
 		   (+ rehash-size old-length))
 		  (float
-		   (the index (round (* rehash-size old-length))))))
+		   (the index (values (round (* rehash-size old-length)))))))
 	      old-length))
 	 (new-vector (make-array new-length :initial-element nil))
 	 #-gengc (weak-p (hash-table-weak-p table)))