From d94977ac0cca1b0d2d236505f5d2371cb169ac0e Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 30 Mar 2013 13:05:04 -0700
Subject: [PATCH] cocoa.messages: fix for deploy problem.

---
 basis/cocoa/messages/messages.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ] ;