Index: /release/1.5/source/cocoa-ide/hemlock/src/search1.lisp
===================================================================
--- /release/1.5/source/cocoa-ide/hemlock/src/search1.lisp	(revision 13585)
+++ /release/1.5/source/cocoa-ide/hemlock/src/search1.lisp	(revision 13586)
@@ -379,5 +379,5 @@
     (when (zerop len) (editor-error "Zero length search string not allowed."))
     ;; The default jump is the length of the search string.
-    (dotimes (i len)
+    (dotimes (i (length jumps))
       (setf (aref jumps i) len))
     ;; For chars in the string the jump is the distance from the end.
@@ -385,4 +385,6 @@
       (setf (aref jumps (funcall access-fun vec i)) (- len i 1)))
     jumps))
+
+