...

original commit: f4d40067503ba1fc5089bba38eaea1a190144522

collects/framework/private/exit.ss

@@ -55,18 +55,17 @@
 
       (define (user-oks-exit)
 	(if (preferences:get 'framework:verify-exit)
-	    (let*-values ([(w capw)
-			   (if (eq? (system-type) 'windows)
-			       (values (string-constant exit-lc) (string-constant exit-cap))
-			       (values (string-constant quit-lc) (string-constant quit-cap)))]
-			  [(message)
-			   (format (string-constant are-you-sure-format) w)]
-			  [(user-says) (gui-utils:get-choice message capw
-                                                             (string-constant cancel)
-                                                             (string-constant warning)
-                                                             #f
-							     (frame-exiting))])
-	      user-says)
+	    (gui-utils:get-choice
+	     (if (eq? (system-type) 'windows)
+		 (string-constant are-you-sure-exit)
+		 (string-constant are-you-sure-quit))
+	     (if (eq? (system-type) 'windows)
+		 (string-constant exit)
+		 (string-constant quit))
+	     (string-constant cancel)
+	     (string-constant warning)
+	     #f
+	     (frame-exiting))
 	    #t))
 
       (define -exit

collects/framework/private/menu.ss

@@ -2,7 +2,7 @@
   (require (lib "unitsig.ss")
 	   (lib "class.ss")
 	   (lib "class100.ss")
-	   "sig"
+	   "sig.ss"
 	   "../macro.ss"
 	   (lib "mred-sig.ss" "mred"))
   

collects/framework/private/version.ss

@@ -1,6 +1,6 @@
 (module version mzscheme
   (require (lib "unitsig.ss")
-	   "sig"
+	   "sig.ss"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "string.ss")
 	   (lib "list.ss"))