diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7721b87f3d1..bc9baeb74fe 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-27  Miles Bader  <miles@gnu.org>
+
+	* faces.el (read-face-name): Format the prompt correctly when
+	there's no default.
+
 2002-04-26  Andrew Choi  <akochoi@shaw.ca>
 
 	* term/mac-win.el: Don't call ediff-toggle-multiframe.  Set
diff --git a/lisp/faces.el b/lisp/faces.el
index 7b0381992cf..e4002246148 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -879,7 +879,7 @@ Otherwise, return a single face."
 		 (format "%s (default %s): " prompt
 			 (if faces (mapconcat 'symbol-name faces ", ")
 			   string-describing-default))
-	       prompt)
+	       (format "%s: " prompt))
 	     obarray 'custom-facep t))
 	   ;; Canonicalize the output.
 	   (output
@@ -894,8 +894,6 @@ Otherwise, return a single face."
 	(car output)))))
 
 
-
-
 (defun face-valid-attribute-values (attribute &optional frame)
   "Return valid values for face attribute ATTRIBUTE.
 The optional argument FRAME is used to determine available fonts