diff --git a/extra/delegate/delegate.factor b/extra/delegate/delegate.factor
index 4cd25baeb9..c0da9c51bc 100755
--- a/extra/delegate/delegate.factor
+++ b/extra/delegate/delegate.factor
@@ -27,7 +27,7 @@ M: tuple-class group-words
     swap [ slot-spec-writer ] map append ;
 
 : define-consult-method ( word class quot -- )
-    pick add <method> spin define-method ;
+    pick add spin define-method ;
 
 : define-consult ( class group quot -- )
     >r group-words r>