diff --git a/stateful/container.lisp b/stateful/container.lisp
index 3e83d9e553ee48c9cbd2c57cf93b47c6fc11d46f..39c0f3aea2d1d551457ba80fd08e4934b37b624a 100644
--- a/stateful/container.lisp
+++ b/stateful/container.lisp
@@ -62,7 +62,7 @@
 (defgeneric pop-item! (container)
   (:method :before (container)
            (check-not-empty container))
-  (:method :before (container)
+  (:method (container)
            (pop-least-item! container)))
 (defgeneric pop-last-item! (container)
   (:method :before (container)