Index: /trunk/ccl/examples/objc-runtime.lisp
===================================================================
--- /trunk/ccl/examples/objc-runtime.lisp	(revision 5382)
+++ /trunk/ccl/examples/objc-runtime.lisp	(revision 5383)
@@ -1456,5 +1456,5 @@
       (or
        (objc-class-id parent)
-       (objc-private-class-id parent))))
+       (objc-private-class-id parent)))))