Index: /trunk/ccl/examples/process-objc-modules.lisp
===================================================================
--- /trunk/ccl/examples/process-objc-modules.lisp	(revision 430)
+++ /trunk/ccl/examples/process-objc-modules.lisp	(revision 431)
@@ -218,5 +218,5 @@
         #'(lambda (class)
             (unless (logtest #$CLS_META (pref class :objc_class.info))
-              (map-objc-class class)))))))
+              (install-foreign-objc-class class)))))))
                         
 #|