Index: /trunk/ccl/examples/objc-clos.lisp
===================================================================
--- /trunk/ccl/examples/objc-clos.lisp	(revision 456)
+++ /trunk/ccl/examples/objc-clos.lisp	(revision 457)
@@ -216,10 +216,12 @@
 
 (defmethod print-object ((o objc:objc-object) stream)
-  (print-unreadable-object (o stream :type t)
-    (format stream
-	    (if (typep o 'ns::ns-string)
-	      "~s (#x~x)"
-	      "~a (#x~x)")
-	    (nsobject-description o) (%ptr-to-int o))))
+  (if (objc-object-p o)
+      (print-unreadable-object (o stream :type t)
+        (format stream
+		(if (typep o 'ns::ns-string)
+		    "~s (#x~x)"
+		  "~a (#x~x)")
+		(nsobject-description o) (%ptr-to-int o)))
+    (format stream "#<Bogus ObjC Object #x~X>" (%ptr-to-int o))))