Index: /trunk/ccl/examples/objc-runtime.lisp
===================================================================
--- /trunk/ccl/examples/objc-runtime.lisp	(revision 543)
+++ /trunk/ccl/examples/objc-runtime.lisp	(revision 544)
@@ -1117,5 +1117,5 @@
 	   (meta (id->objc-metaclass meta-id))
 	   (class (id->objc-class id))
-	   (meta-name (intern (format nil "+~a" class-name)
+	   (meta-name (intern (format nil "+~a" name)
 			      (symbol-package name)))
 	   (meta-super (canonicalize-registered-metaclass