Index: /trunk/ccl/examples/objc-runtime.lisp
===================================================================
--- /trunk/ccl/examples/objc-runtime.lisp	(revision 229)
+++ /trunk/ccl/examples/objc-runtime.lisp	(revision 230)
@@ -142,13 +142,14 @@
               (splay-tree-count objc-metaclass-map) 0
               next-objc-class-id 0)))
-    (defun map-objc-class (class &optional (class-name
-					    (objc-to-lisp-classname
-					     (%get-cstring
-					      (pref class :objc_class.name))
-					     "NS")
-					    class-name-p))
+    (defun map-objc-class (class &optional (name nil name-p))
       "ensure that the class (and metaclass) are mapped to a small integer"
       (with-lock-grabbed (objc-class-lock)
-	(labels ((ensure-mapped-class (class)
+	(labels ((ensure-mapped-class (class &optional
+					     (class-name
+					      (objc-to-lisp-classname
+					       (%get-cstring
+						(pref class :objc_class.name))
+					       "NS")
+					      class-name-p))
 		   (ensure-objc-classptr-resolved class)
 		   (with-macptrs ((super (pref class :objc_class.super_class)))
@@ -186,5 +187,7 @@
 			 )
 			 id))))
-	  (ensure-mapped-class class))))
+	  (if name-p
+	    (ensure-mapped-class class name)
+	    (ensure-mapped-class class)))))
     (defun objc-class-id (class)
       (with-lock-grabbed (objc-class-lock)