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