diff --git a/extra/delegate/delegate.factor b/extra/delegate/delegate.factor
index 59e2210ae0..39eccfd194 100755
--- a/extra/delegate/delegate.factor
+++ b/extra/delegate/delegate.factor
@@ -54,7 +54,7 @@ M: tuple-class group-words
     >r protocol-words r> diff ;
 
 : forget-old-definitions ( protocol new-wordlist -- )
-    >r users-and-words r>
+    >r [ protocol-users ] [ protocol-words ] bi r>
     swap diff forget-all-methods ;
 
 : added-words ( protocol wordlist -- added-words )