Index: /trunk/ccl/examples/objc-clos.lisp
===================================================================
--- /trunk/ccl/examples/objc-clos.lisp	(revision 613)
+++ /trunk/ccl/examples/objc-clos.lisp	(revision 614)
@@ -188,5 +188,5 @@
     (ecase flags
       (#.objc-flag-instance (or (gethash p *objc-object-slot-vectors*)
-				(error "~s has no slots." p)))
+                                (error "~s has no slots." p)))
       (#.objc-flag-class (id->objc-class-slots-vector index))
       (#.objc-flag-metaclass (id->objc-metaclass-slots-vector index)))))