Index: /trunk/source/cocoa-ide/hemlock/src/search1.lisp
===================================================================
--- /trunk/source/cocoa-ide/hemlock/src/search1.lisp	(revision 8773)
+++ /trunk/source/cocoa-ide/hemlock/src/search1.lisp	(revision 8774)
@@ -462,5 +462,5 @@
 	 (setf (search-pattern-search-function old)
 	       #'insensitive-find-string-once-backward-method)
-	 (nreverse folded-string)))
+	 (setq folded-string (nreverse folded-string))))
       (let ((hashed-string (search-hash-string folded-string)))
 	(setf (string-insensitive-hashed-string old) hashed-string
@@ -578,5 +578,5 @@
 	 (setf (search-pattern-search-function old)
 	       #'sensitive-find-string-once-backward-method)
-	 (nreverse string)))
+	 (setq string (nreverse string))))
       (setf (string-sensitive-string old) string)
       (setf (string-sensitive-jumps old)
Index: /trunk/source/cocoa-ide/hemlock/src/symbol-completion.lisp
===================================================================
--- /trunk/source/cocoa-ide/hemlock/src/symbol-completion.lisp	(revision 8773)
+++ /trunk/source/cocoa-ide/hemlock/src/symbol-completion.lisp	(revision 8774)
@@ -251,7 +251,8 @@
 		     (dabbrev-match-p context (symbol-name sym)))
 	    (vector-push-extend sym seq))))
-      (stable-sort seq #'(lambda (s1 s2)
-			   (and (or (boundp s1) (fboundp s1))
-				(not (or (boundp s2) (fboundp s2))))))
+      (setq seq
+	    (stable-sort seq #'(lambda (s1 s2)
+				 (and (or (boundp s1) (fboundp s1))
+				      (not (or (boundp s2) (fboundp s2)))))))
       ;; Now convert to strings - and downcase for inserting in buffer.
       (dotimes (i (length seq))