Index: /trunk/source/cocoa-ide/cocoa-editor.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 12696)
+++ /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 12697)
@@ -2753,5 +2753,10 @@
         t))))
 
-
+;;; Cocotron's NSDocument uses the deprecated as of 10.4 methods to implement the NSSavePanel
+#+cocotron
+(objc:defmethod (#/writeToFile:ofType: :<BOOL>)
+    ((self hemlock-editor-document) path type)
+  (rlet ((perror :id +null-ptr+))
+    (#/writeToURL:ofType:error: (#/fileURLWithPath: ns:ns-url path) self type perror)))