diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2778c32decc..e9fab7f77c2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-08-29  Glenn Morris  <rgm@gnu.org>
 
+	* nxml/nxml-util.el (nxml-debug-clear-inside):
+	Use cl-loop rather than loop.
+
 	* net/eww.el (eww-mode-map): Lower-case menu bar entries look bad.
 
 	* progmodes/sh-script.el (sh-builtins) <bash>: Add some bash4-isms.
diff --git a/lisp/nxml/nxml-util.el b/lisp/nxml/nxml-util.el
index 75479160cbb..c410aa12c83 100644
--- a/lisp/nxml/nxml-util.el
+++ b/lisp/nxml/nxml-util.el
@@ -45,7 +45,7 @@
 
 (defmacro nxml-debug-clear-inside (start end)
   (when nxml-debug
-    `(loop for overlay in (overlays-in ,start ,end)
+    `(cl-loop for overlay in (overlays-in ,start ,end)
            if (overlay-get overlay 'nxml-inside-debug)
            do (delete-overlay overlay)
            finally (nxml-debug-change "nxml-clear-inside" ,start ,end))))