Index: /trunk/ccl/ChangeLog
===================================================================
--- /trunk/ccl/ChangeLog	(revision 6248)
+++ /trunk/ccl/ChangeLog	(revision 6249)
@@ -1,2 +1,8 @@
+2007-04-09 16:10  gb
+
+	* examples/objc-clos.lisp: ALLOCATE-INSTANCE of OBJC:OBJC:CLASS: if
+	the result of sending the init message is a null pointer, return a
+	null pointer.
+
 2007-04-09 00:10  gb