diff --git a/lisp/faces.el b/lisp/faces.el
index bb9b1e979f..cd6145cf68 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1112,10 +1112,10 @@ read-face-name
            (lambda (faces)
              (mapcar
               (lambda (face)
-                (list (concat (propertize "SAMPLE" 'face face)
-                              "\t")
+                (list face
                       ""
-                      face))
+                      (concat "\t"
+                              (propertize "SAMPLE" 'face face))))
               faces))))
         aliasfaces nonaliasfaces faces)
     ;; Build up the completion tables.