diff --git a/src/ChangeLog b/src/ChangeLog
index cb0975d52bf..54e46245d30 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2002-03-13  Stefan Monnier  <monnier@cs.yale.edu>
+
+	* xdisp.c (display_mode_element): Fix int/Lisp_Object mixup.
+
 2002-03-13  Kim F. Storm  <storm@cua.dk>
 
 	* puresize.h (BASE_PURESIZE): Increase to 775000.
diff --git a/src/xdisp.c b/src/xdisp.c
index 4760893d284..6ac581914a7 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -13640,7 +13640,8 @@ display_mode_element (it, depth, field_width, precision, elt, props)
 		else
 		  {
 		    elt = Fcopy_sequence (elt);
-		    Fset_text_properties (0, Flength (elt), props, elt);
+		    Fset_text_properties (make_number (0), Flength (elt),
+					  props, elt);
 		    mode_line_proptrans_alist
 		      = Fcons (Fcons (elt, props),
 			       mode_line_proptrans_alist);