Index: /release/1.4/source/cocoa-ide/hemlock/src/charprops.lisp
===================================================================
--- /release/1.4/source/cocoa-ide/hemlock/src/charprops.lisp	(revision 13159)
+++ /release/1.4/source/cocoa-ide/hemlock/src/charprops.lisp	(revision 13160)
@@ -187,6 +187,7 @@
 ;;; before and after charpos.
 (defun split-line-charprops (line charpos)
-  (let ((changes (line-charprops-changes line)))
-    (when changes
+  (let* ((changes (line-charprops-changes line))
+         (nchanges (length changes)))
+    (when (> nchanges 0)
       (let ((left (make-array 2 :adjustable t :fill-pointer 0))
             (right (make-array 2 :adjustable t :fill-pointer 0))
@@ -196,5 +197,5 @@
               (change nil))
              ((or pivot
-                  (= i (length changes)))
+                  (= i nchanges))
               (if (null pivot)
                 ;; The last change extends to the end of line, so that will be the
@@ -214,5 +215,5 @@
                       (setf (charprops-change-index c) 0)
                       (push-charprops-change c right)))
-                  (loop for i from pivot below (length changes)
+                  (loop for i from pivot below nchanges
                     as change = (aref changes i)
                     do (decf (charprops-change-index change) charpos)