diff --git a/src/test.lisp b/src/test.lisp
index 506a511..abfb234 100644
--- a/src/test.lisp
+++ b/src/test.lisp
@@ -28,7 +28,7 @@
   (gethash key (%tests *test*) default))
 
 (defun (setf get-test) (value key)
-  (push key (%test-names *test*))
+  (pushnew key (%test-names *test*))
   (setf (gethash key (%tests *test*)) value))
 
 (defun rem-test (key)