Index: /trunk/ccl/examples/objc-support.lisp
===================================================================
--- /trunk/ccl/examples/objc-support.lisp	(revision 544)
+++ /trunk/ccl/examples/objc-support.lisp	(revision 545)
@@ -152,5 +152,5 @@
   ;;;
 
-  (dbg (format nil "~a" c))
+  #|(dbg (format nil "~a" c))|#
   (make-instance 'ns-lisp-exception :condition c))