Index: /release/1.3/source/examples/cocoa/easygui/dialogs.lisp
===================================================================
--- /release/1.3/source/examples/cocoa/easygui/dialogs.lisp	(revision 11840)
+++ /release/1.3/source/examples/cocoa/easygui/dialogs.lisp	(revision 11841)
@@ -13,29 +13,34 @@
 (defun y-or-n-dialog (message)
   (let ((alert (make-instance 'ns:ns-alert)))
-    (#/setMessageText: alert message)
-    (#/addButtonWithTitle: alert "Yes")
-    (#/addButtonWithTitle: alert "No")
+    (#/setMessageText: alert (ccl::%make-nsstring message))
+    (#/addButtonWithTitle: alert (ccl::%make-nsstring "Yes"))
+    (#/addButtonWithTitle: alert (ccl::%make-nsstring "No"))
     (eql (#/runModal alert) #$NSAlertFirstButtonReturn)))
 
+(defvar *beepnsleep* t)
+
 (defun choose-file-dialog (&key button-string)
-  (declare (ignorable button-string))
   (gui::with-autorelease-pool 
       (let* ((panel (dcc (#/autorelease (dcc (#/openPanel ns:ns-open-panel)))))) ; allocate an NSOpenPanel
         (dcc (#/setAllowsMultipleSelection: panel nil)) ; return at most one filename
-        (when button-string (dcc (#/setPrompt: panel button-string)))
+        (when button-string
+          (setf button-string (ccl::%make-nsstring button-string))
+          (dcc (#/setPrompt: panel button-string)))
         (when (eql #$NSOKButton
                    (dcc (#/runModalForDirectory:file:types: panel
-                      +null-ptr+ ; default to last dir used
-                      +null-ptr+ ; no preselected file
-                      ;; If not NIL below then an ObjC array containing NSStrings could be used
-                      ;; to restrict the file types we're interested in
-                      #$NIL)))
+                           +null-ptr+ ; default to last dir used
+                           +null-ptr+ ; no preselected file
+                           ;; If not NIL below then an ObjC array containing NSStrings could be used
+                           ;; to restrict the file types we're interested in
+                           #$NIL)))
           ;; Because we told the panel to disallow multiple selection,
           ;; there should be exactly one object in this array, an
           ;; NSString describing the selected file.
-          (let* ((files (dcc (#/filenames panel))))
+          (let* ((files (dcc (#/filenames panel))) thing)
             (if (eql 1 (dcc (#/count files)))
-              (gui::lisp-string-from-nsstring (dcc (#/objectAtIndex: files 0)))
-              (error "Don't know why we didn't get an NSArray containing exactly 1 file here.")))))))
+              (progn
+                (setf thing (dcc (#/objectAtIndex: files 0)))
+                (gui::lisp-string-from-nsstring thing))
+              "Don't know why we didn't get an NSArray containing exactly 1 file here."))))))
 
 (defun choose-new-file-dialog (&key button-string)
@@ -43,5 +48,5 @@
   (gui::with-autorelease-pool 
       (let* ((panel (dcc (#/autorelease (dcc (#/savePanel ns:ns-save-panel)))))) ; allocate an NSSavePanel
-        (when button-string (dcc (#/setPrompt: panel button-string)))
+        (when button-string (dcc (#/setPrompt: panel (ccl::%make-nsstring button-string))))
         (when (eql #$NSOKButton
                    (dcc (#/runModalForDirectory:file: panel
@@ -65,10 +70,10 @@
     (let* ((panel (dcc (#/sharedColorPanel ns:ns-color-panel)))) ; find or create the NSColorPanel
       (dcc (#/setPickerMode: ns:ns-color-panel #$NSWheelModeColorPanel))
-      (dcc (#/setTitle: panel prompt))
+      (dcc (#/setTitle: panel (ccl::%make-nsstring prompt)))
       (dcc (#/addObserver:selector:name:object:                 ; observe yourself close but
        (dcc (#/defaultCenter ns:ns-notification-center))        ; sadly confound OK & CANCEL
        panel
        (objc:\@selector #/NSWindowWillCloseNotification)
-       "NSWindowWillCloseNotification"
+       (ccl::%make-nsstring "NSWindowWillCloseNotification")
        panel))
       (when color (dcc (#/setColor: panel color)))
@@ -77,5 +82,5 @@
        (dcc (#/defaultCenter ns:ns-notification-center))
        panel
-       "NSWindowWillCloseNotification"
+       (ccl::%make-nsstring "NSWindowWillCloseNotification")
        panel))
       (dcc (#/retain (dcc (#/color panel)))))))