Index: /trunk/source/cocoa-ide/cocoa-editor.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 12694)
+++ /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 12695)
@@ -2713,4 +2713,5 @@
     (hi::note-modeline-change (hemlock-buffer self))))
 
+#-cocotron
 (objc:defmethod (#/prepareSavePanel: :<BOOL>) ((self hemlock-editor-document)
                                                panel)
@@ -3053,10 +3054,12 @@
 (objc:defmethod (#/runModalOpenPanel:forTypes: :<NSI>nteger)
     ((self hemlock-document-controller) panel types)
-  (let* ((popup (build-encodings-popup self #|preferred|#)))
-    (#/setAccessoryView: panel popup)
+  (let* (#-cocotron (popup (build-encodings-popup self #|preferred|#)))
+    #-cocotron (#/setAccessoryView: panel popup)
     (let* ((result (call-next-method panel types)))
       (when (= result #$NSOKButton)
+        #-cocotron
         (with-slots (last-encoding) self
-          (setq last-encoding (nsinteger-to-nsstring-encoding (#/tag (#/selectedItem popup))))))
+          (setq last-encoding
+                (nsinteger-to-nsstring-encoding (#/tag (#/selectedItem popup))))))
       result)))