diff --git a/core/autoload/print.el b/core/autoload/print.el
index a4d9099ce..9caba15a6 100644
--- a/core/autoload/print.el
+++ b/core/autoload/print.el
@@ -300,7 +300,7 @@ Each argument in ARGS can be a list, as if they were arguments to `format!':
                          (c 0))
                      (while (and (not (eolp)) (<= n target))
                        (save-match-data
-                         (if (looking-at ansi-color--control-seq-fragment-regexp)
+                         (if (looking-at ansi-color-control-seq-regexp)
                              (let ((len (length (match-string 0))))
                                (cl-incf c len)
                                (forward-char len))