diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index bc678b76a8..1e1cb3d75f 100644
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -76,7 +76,7 @@ ERROR: no-objc-method name ;
 
 MEMO: make-prepare-send ( selector method super? -- quot )
     [
-        [ \ <super> , ] when swap lookup-selector ,
+        [ \ <super> , ] when swap <selector> , \ selector ,
     ] [ ] make
     swap second length 2 - '[ _ _ ndip ] ;