cocoa.messages: fix for deploy problem.

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index bc678b76a8b6386b5d0a2027fc3983f7ab1f01a4..1e1cb3d75fc988d4f4ea31cf72db026b59b4c090 100644 (file)
--- 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 ] ;