diff --git a/src/suite.lisp b/src/suite.lisp
index 03e232eb5f3a88718f43a48f8ff22eef4d47e6be..003f873d6d81ed1234bd99f963cecce08d0fe99e 100644
--- a/src/suite.lisp
+++ b/src/suite.lisp
@@ -54,7 +54,7 @@ Overrides any existing suite named NAME."
 
 (defun list-all-suites ()
   "Returns an unordered LIST of all suites."
-  (hash-table-values *suites*))
+  (hash-table-values *suite*))
 
 ;;;; ** Managing the Current Suite