diff --git a/basis/delegate/delegate-docs.factor b/basis/delegate/delegate-docs.factor
index 93bf70b950..0d2f94c13d 100644
--- a/basis/delegate/delegate-docs.factor
+++ b/basis/delegate/delegate-docs.factor
@@ -45,5 +45,4 @@ $nl
 { $subsection define-consult }
 "The " { $vocab-link "delegate.protocols" } " vocabulary defines formal protocols for the various informal protocols used in the Factor core, such as " { $link "sequence-protocol" } ", " { $link "assocs-protocol" } " or " { $link "stream-protocol" } ;
 
-IN: delegate
 ABOUT: { "delegate" "intro" }
diff --git a/basis/delegate/delegate.factor b/basis/delegate/delegate.factor
index 45cc214792..12860337ff 100755
--- a/basis/delegate/delegate.factor
+++ b/basis/delegate/delegate.factor
@@ -62,7 +62,7 @@ M: tuple-class group-words
     protocol-consult keys ;
 
 : lost-words ( protocol wordlist -- lost-words )
-    >r protocol-words r> diff ;
+    [ protocol-words ] dip diff ;
 
 : forget-old-definitions ( protocol new-wordlist -- )
     [ drop protocol-users ] [ lost-words ] 2bi