Index: /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/open-panel.lisp
===================================================================
--- /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/open-panel.lisp	(revision 14641)
+++ /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/open-panel.lisp	(revision 14642)
@@ -56,10 +56,10 @@
                                    (lisp-to-ns-array types)
                                    (lisp-to-ns-array (list (string types))))))
-    (when (and dir (#/respondsToSelector: op (ccl::@selector "setDirectoryURL:")))
+    #|(when (and dir (#/respondsToSelector: op (ccl::@selector "setDirectoryURL:")))
       (#/setDirectoryURL: op 
                           (#/fileURLWithPath:isDirectory:
                            ns:ns-url 
                            ns-dir
-                           #$YES)))
+                           #$YES)))|#
     (setf button (#/runModal op))
     (prog1 (when (eq button #$NSOKButton)
Index: /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/save-panel.lisp
===================================================================
--- /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/save-panel.lisp	(revision 14641)
+++ /trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/save-panel.lisp	(revision 14642)
@@ -41,20 +41,21 @@
                         (name nil)
                         (prompt nil))
+  (declare (ignore name))
   (let ((sp (#/savePanel ns:ns-save-panel))
         (ns-prompt (and prompt (ccl::%make-nsstring prompt)))
         (ns-dir (and dir (ccl::%make-nsstring (truename dir))))
         (button))
-    (when (and dir (#/respondsToSelector: sp (ccl::@selector "setDirectoryURL:")))
+    #|(when (and dir (#/respondsToSelector: sp (ccl::@selector "setDirectoryURL:")))
       (#/setDirectoryURL: sp 
                           (#/fileURLWithPath:isDirectory:
                            ns:ns-url 
                            ns-dir
-                           #$YES)))
+                           #$YES)))|#
     (when prompt
       (#/setPrompt: sp ns-prompt))
     (when type
       (#/setAllowedFileTypes: sp (lisp-to-ns-array (list (string type)))))
-    (when (and name (#/respondsToSelector: sp (ccl::@selector "setNameFieldStringValue:")))
-      (#/setNameFieldStringValue: sp (lisp-to-ns-array name)))
+    #|(when (and name (#/respondsToSelector: sp (ccl::@selector "setNameFieldStringValue:")))
+      (#/setNameFieldStringValue: sp (lisp-to-ns-array name)))|#
     (setf button (#/runModal sp))
     (prog1 (when (eq button #$NSOKButton)