Index: /trunk/ccl/examples/cocoa-editor.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-editor.lisp	(revision 814)
+++ /trunk/ccl/examples/cocoa-editor.lisp	(revision 815)
@@ -598,7 +598,7 @@
              (point (hi::buffer-point buffer)))
         #+debug (#_NSLog #@"Syntax check for blinking")
-        (hemlock::pre-command-parse-check point)
-        (when (hemlock::valid-spot point nil)
-          (cond ((eql (hi::next-character point) #\()
+        (cond ((eql (hi::next-character point) #\()
+               (hemlock::pre-command-parse-check point)
+               (when (hemlock::valid-spot point nil)
                  (hi::with-mark ((temp point))
                    (when (hemlock::list-offset temp 1)
@@ -606,6 +606,8 @@
                      (setf (text-view-blink-location self)
                            (1- (mark-absolute-position temp))
-                           (text-view-blink-enabled self) #$YES))))
-                ((eql (hi::previous-character point) #\))
+                           (text-view-blink-enabled self) #$YES)))))
+              ((eql (hi::previous-character point) #\))
+               (hemlock::pre-command-parse-check point)
+               (when (hemlock::valid-spot point nil)
                  (hi::with-mark ((temp point))
                    (when (hemlock::list-offset temp -1)
@@ -1836,5 +1838,5 @@
 
 
-(defmethod hi::save-hemlock-document ((self hemlock-editor-document))
+(defmethod hi::save-hemlock-document-as ((self hemlock-editor-document))
   (send self
         :perform-selector-on-main-thread (@selector "saveDocumentAs:")