diff --git a/code/hash-new.lisp b/code/hash-new.lisp
index b40a5c1541a629dce7375b8cae22078885bc832f..b97dec3429747340dc9e2e29b7b5f98bf3916e23 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.9 2000/01/14 19:47:19 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.10 2000/01/14 19:48:36 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -838,9 +838,9 @@
 
 (eval-when (compile eval)
 
-(defconstant sxhash-bits-byte (byte 23 0))
-(defconstant sxmash-total-bits 26)
-(defconstant sxmash-rotate-bits 7)
+(defconstant sxhash-bits-byte (byte 29 0))
+(defconstant sxmash-total-bits 29)
+(defconstant sxmash-rotate-bits 9)
 
 (defmacro sxmash (place with)
   `(setf ,place
diff --git a/code/hash.lisp b/code/hash.lisp
index befee36f90286c7e0f2ae1c7f5ab0d623af71800..703c2a514bd28e77dacf5a39ec568a481a81703c 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.33 2000/01/14 19:47:20 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.34 2000/01/14 19:48:37 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -807,9 +807,9 @@
 
 (eval-when (compile eval)
 
-(defconstant sxhash-bits-byte (byte 23 0))
-(defconstant sxmash-total-bits 26)
-(defconstant sxmash-rotate-bits 7)
+(defconstant sxhash-bits-byte (byte 29 0))
+(defconstant sxmash-total-bits 29)
+(defconstant sxmash-rotate-bits 9)
 
 (defmacro sxmash (place with)
   `(setf ,place
diff --git a/compiler/generic/vm-tran.lisp b/compiler/generic/vm-tran.lisp
index 2c15eba38a2da2d70de942ee96d404fd3cbd7c6a..c93773ec4739c28a1e0a7c02fbcbf90e4efb5f7b 100644
--- a/compiler/generic/vm-tran.lisp
+++ b/compiler/generic/vm-tran.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/compiler/generic/vm-tran.lisp,v 1.38 2000/01/13 16:53:33 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.39 2000/01/14 19:48:43 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -315,9 +315,9 @@
 
 ;;; Should be in VM:
 
-(defconstant sxhash-bits-byte (byte 23 0))
-(defconstant sxmash-total-bits 26)
-(defconstant sxmash-rotate-bits 7)
+(defconstant sxhash-bits-byte (byte 29 0))
+(defconstant sxmash-total-bits 29)
+(defconstant sxmash-rotate-bits 9)
 
 (deftransform sxhash ((s-expr) (integer))
   '(ldb sxhash-bits-byte s-expr))