diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6befeb0670f..688afb62bdb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-02  Richard M. Stallman  <rms@gnu.org>
+
+	* facemenu.el (facemenu-active-faces):
+	Use face-attributes-as-vector, not face-attributes-vector.
+
 2002-01-02  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* bindings.el (function-key-map): Don't bind shifted keypad
diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 6ad61585f97..c138e13794c 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -611,7 +611,7 @@ If the optional argument FRAME is given, use the faces in that frame; otherwise
 use the selected frame.  If t, then the global, non-frame faces are used."
   (let* ((mask-atts (copy-sequence
 		     (if (consp (car face-list))
-			 (face-attribute-vector (car face-list))
+			 (face-attributes-as-vector (car face-list))
 		       (or (internal-lisp-face-p (car face-list) frame)
 			   (check-face (car face-list))))))
 	 (active-list (list (car face-list)))
@@ -620,7 +620,7 @@ use the selected frame.  If t, then the global, non-frame faces are used."
     (while face-list
       (if (let ((face-atts
 		 (if (consp (car face-list))
-		     (face-attribute-vector (car face-list))
+		     (face-attributes-as-vector (car face-list))
 		   (or (internal-lisp-face-p (car face-list) frame)
 		       (check-face (car face-list)))))
 		(i mask-len)