diff --git a/streams/file-position.lsp b/streams/file-position.lsp
index 6f26334e8c8d4a61ec1e769afb2f2ce3945f5617..9db922d360ec60d1538f546ba99106df390c702c 100644
--- a/streams/file-position.lsp
+++ b/streams/file-position.lsp
@@ -107,8 +107,8 @@
 (deftest file-position.9
   (with-input-from-string
    (s "abcdefghijklmnopqrstuvwxyz")
-   (loop repeat 26
-         for p = (file-position s)
+   (loop for p = (file-position s)
+         repeat 26
          unless (or (not p)
                     (progn
                       (file-position s p)
@@ -120,8 +120,8 @@
 (deftest file-position.10
   (with-output-to-string
    (s)
-   (loop repeat 26
-         for p = (file-position s)
+   (loop for p = (file-position s)
+         repeat 26
          unless (or (not p)
                     (progn
                       (file-position s p)