diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index f1670e1de9..543415267d 100644
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -37,9 +37,9 @@ super-message-senders [ H{ } clone ] initialize
     [ ] [ object_getClass class_getSuperclass ] bi
     objc-super <struct-boa> ;
 
-TUPLE: selector name object ;
+TUPLE: selector-tuple name object ;
 
-MEMO: <selector> ( name -- sel ) f \ selector boa ;
+MEMO: <selector> ( name -- sel ) f \ selector-tuple boa ;
 
 : selector ( selector -- alien )
     dup object>> expired? [