diff --git a/lisp/nxml/xmltok.el b/lisp/nxml/xmltok.el
index fb852e5ea5e..6f9df554da0 100644
--- a/lisp/nxml/xmltok.el
+++ b/lisp/nxml/xmltok.el
@@ -738,7 +738,7 @@ and VALUE-END, otherwise a STRING giving the value."
 		      ;; avoid slowdowns due to the quadratic
 		      ;; complexity of the regexp.  See bug#61514.
 		      (when (with-restriction
-			      (point) (+ (point) 10000)
+			      (point) (min (+ (point) 10000) (point-max))
 			      (looking-at (concat "[^<>\n]+?"
 						  (xmltok-attribute regexp))))
 			(unless recovering