1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index dc5681c4659..51d7cb90755 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1571,7 +1571,7 @@ If point is on a group name, this function operates on that group."
 (defun ibuffer-compile-make-substring-form (strvar maxvar from-end-p)
   (if from-end-p
       ;; FIXME: not sure if this case is correct (Bug#24972)
-      `(truncate-string-to-width str (string-width str) (- strlen ,maxvar) nil ?\s)
+      `(truncate-string-to-width str strlen (- strlen ,maxvar) nil ?\s)
     `(truncate-string-to-width ,strvar ,maxvar nil ?\s)))
 
 (defun ibuffer-compile-make-format-form (strvar widthform alignment)