diff --git a/collects/framework/prefs.ss b/collects/framework/prefs.ss
index 1b26a015..09354df0 100644
--- a/collects/framework/prefs.ss
+++ b/collects/framework/prefs.ss
@@ -421,7 +421,7 @@
 				button% horiz 
 				(lambda (button evt)
 				  (let ([new-value
-					 (get-choice-from-user
+					 (get-choices-from-user
 					  "Fonts"
 					  (format "Please choose a new ~a font"
 						  name)
diff --git a/collects/framework/splash.ss b/collects/framework/splash.ss
index 809cac78..940e5ed8 100644
--- a/collects/framework/splash.ss
+++ b/collects/framework/splash.ss
@@ -13,7 +13,7 @@
 		  default)))]
 	 [(set-resource)
 	  (lambda (name value)
-	    (write-resource "mred" name value (find-path 'setup-file)))]
+	    (write-resource "mred" name value (find-graphical-system-path 'setup-file)))]
 	 [(_)
 	  (begin
 	    (unless filename