diff --git a/src/lsp/loop.lsp b/src/lsp/loop.lsp
index 11c498b91..c696c3e87 100644
--- a/src/lsp/loop.lsp
+++ b/src/lsp/loop.lsp
@@ -1729,7 +1729,7 @@ Note that this is not a valid ANSI code."))
   (unless var
     (setf var (gensym)))
   (loop-sequencer
-    var (loop-check-data-type data-type 'real) t
+    var (loop-check-data-type data-type 'number) t
     nil nil nil nil nil nil
     (loop-collect-prepositional-phrases
       '((:from :upfrom :downfrom) (:to :upto :downto :above :below) (:by))