cocoa.messages: fix

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index eab301add741ec6f347c0c537327f41112080939..76b77721ffe1ca60aeec4b3b55c66ff5153fa096 100644 (file)
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -236,10 +236,11 @@ ERROR: no-objc-type name ;
     ] bi ;
 
 : import-objc-class ( name quot -- )
-    over define-objc-class-word
+    2dup swap define-objc-class-word
+    over objc_getClass [ drop ] [ call( -- ) ] if
     dup objc_getClass [
-        [ objc-class register-objc-methods ]
-        [ objc-meta-class register-objc-methods ] bi
+        [ objc_getClass register-objc-methods ]
+        [ objc_getMetaClass register-objc-methods ] bi
     ] [ drop ] if ;
 
 : root-class ( class -- root )