diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp
index 501d38fe19659721501f5702cda5300a5f5d30c7..48e4729b323add5e05d27aa6e694c4d80c55fe1c 100644
--- a/ansi-tests/rt.lsp
+++ b/ansi-tests/rt.lsp
@@ -71,11 +71,9 @@
        (list* (name ,var) (form ,var) (vals ,var)))))
 
 (defun pending-tests ()
-  (do ((l (cdr *entries*) (cdr l))
-       (r nil))
-      ((null l) (nreverse r))
-    (when (pend (car l))
-      (push (name (car l)) r))))
+  (loop for entry in (cdr *entries*)
+	when (and (pend entry) (not (has-disabled-note entry)))
+	collect (name entry)))
 
 (defun rem-all-tests ()
   (setq *entries* (list nil))