Index: /trunk/ccl/examples/objc-runtime.lisp
===================================================================
--- /trunk/ccl/examples/objc-runtime.lisp	(revision 851)
+++ /trunk/ccl/examples/objc-runtime.lisp	(revision 852)
@@ -458,6 +458,5 @@
 		(%make-objc-ivars c)
 	      (%add-objc-class c ivars instance-size)
-	      (splay-tree-put class-map c i)
-              (format t "~& addded ~s" (class-name c)))))))))
+	      (splay-tree-put class-map c i))))))))
 
 (pushnew #'revive-objc-classes *lisp-system-pointer-functions*