diff --git a/ansi-tests/cl-symbols-aux.lsp b/ansi-tests/cl-symbols-aux.lsp
index a9c642c4761b39dfaacf8fc2e00b09900f7a32a3..9436189e1676f47ebd6b1c066cfbbc32289dc330 100644
--- a/ansi-tests/cl-symbols-aux.lsp
+++ b/ansi-tests/cl-symbols-aux.lsp
@@ -24,8 +24,8 @@
        ;; in CL-USER
        (let ((plist (symbol-plist sym)))
 	 (loop for e = plist then (cddr e)
-	       while e
 	       for indicator = (car e)
+	       while e
 	       when (and (symbolp indicator)
 			 (or (is-external-symbol-of indicator
 						    "COMMON-LISP")