diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index ea7280b5a6..94c5f05887 100755
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2006, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors alien alien.c-types alien.strings
+USING: alien alien.c-types alien.strings
 arrays assocs combinators compiler kernel
 math namespaces parser prettyprint prettyprint.sections
 quotations sequences strings words cocoa.runtime io macros
@@ -46,11 +46,11 @@ TUPLE: selector name object ;
 MEMO: <selector> ( name -- sel ) f \ selector boa ;
 
 : selector ( selector -- alien )
-    dup object>> expired? [
-        dup name>> sel_registerName
-        [ >>object drop ] keep
+    dup selector-object expired? [
+        dup selector-name sel_registerName
+        dup rot set-selector-object
     ] [
-        object>>
+        selector-object
     ] if ;
 
 SYMBOL: objc-methods