diff --git a/alexandria-1/tests.lisp b/alexandria-1/tests.lisp
index 71e8248713130ca8555765737da900a7b7ceb20b..9274951581779ea1746d2f3c17e39c40623e1b3e 100644
--- a/alexandria-1/tests.lisp
+++ b/alexandria-1/tests.lisp
@@ -283,7 +283,7 @@
             (eql-copy (copy-hash-table orig :test 'eql))
             (equal-copy (copy-hash-table orig :test 'equal))
             (equalp-copy (copy-hash-table orig :test 'equalp)))
-        (list #-allegro (eql (hash-table-size eq-copy) (hash-table-size orig))
+        (list
               (eql (hash-table-rehash-size eq-copy)
                    (hash-table-rehash-size orig))
               (hash-table-count eql-copy)
@@ -293,7 +293,7 @@
               (gethash (copy-seq foo) equal-copy)
               (gethash "FOO" equal-copy)
               (gethash "FOO" equalp-copy))))
-  (#-allegro t t 2 t nil t t nil t))
+  (t 2 t nil t t nil t))
 
 (deftest copy-hash-table.2
     (let ((ht (make-hash-table))