diff --git a/code/hash-new.lisp b/code/hash-new.lisp
index 96b2d8ba3fbd89ba796ea44bb40c5d00bd90a43b..f68c9ceb49b7f46c8bbb0ab3e91255bb21e58d0b 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.46 2008/01/22 17:55:30 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.47 2008/04/29 13:07:47 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1176,7 +1176,7 @@
      :test ',(hash-table-test table) :size ',(hash-table-size table)
      :rehash-size ',(hash-table-rehash-size table)
      :rehash-threshold ',(hash-table-rehash-threshold table)
-     :weak-p (hash-table-weak-p table))
+     :weak-p ,(hash-table-weak-p table))
    (let ((values nil))
      (declare (inline maphash))
      (maphash #'(lambda (key value)