diff --git a/hash-tables.lisp b/hash-tables.lisp
index 50198fbffbe589da7362bddbcf77cabb1f781458..a574737530674467749ea8485caa649f6c3f5ca8 100644
--- a/hash-tables.lisp
+++ b/hash-tables.lisp
@@ -12,7 +12,7 @@ copy is returned by default."
   (setf key (or key 'identity))
   (setf test (or test (hash-table-test table)))
   (setf size (or size (hash-table-size table)))
-  (setf rehash-size (or rehash-size (hash-table-size table)))
+  (setf rehash-size (or rehash-size (hash-table-rehash-size table)))
   (setf rehash-threshold (or rehash-threshold (hash-table-rehash-threshold table)))
   (let ((copy (make-hash-table :test test :size size
                                :rehash-size rehash-size