Index: /trunk/ccl/examples/objc-runtime.lisp
===================================================================
--- /trunk/ccl/examples/objc-runtime.lisp	(revision 4964)
+++ /trunk/ccl/examples/objc-runtime.lisp	(revision 4965)
@@ -366,5 +366,5 @@
     (let* ((addr (%ptr-to-int ptr))
            (min 0)
-           (max (length cfstring-sections-vector)))
+           (max (1- (length cfstring-sections-vector))))
       (do* ()
            ((> min max))