diff --git a/ansi-tests/loop2.lsp b/ansi-tests/loop2.lsp
index 336679fe58769ce079f28a4cd04230fc9aaf5363..f93c566a36894ff668c70341e1f4a5dfa91810d4 100644
--- a/ansi-tests/loop2.lsp
+++ b/ansi-tests/loop2.lsp
@@ -76,12 +76,12 @@
   (classify-error
    (loop for x in '(a b c)
 	 for x in '(d e f) collect x))
-  programm-error)
+  program-error)
 
 (deftest loop.2.15
   (classify-error
    (loop for (x . x) in '((a b) (c d)) collect x))
-  programm-error)
+  program-error)
 
 (deftest loop.2.16
   (loop for nil in nil do (return t))
diff --git a/ansi-tests/loop3.lsp b/ansi-tests/loop3.lsp
index 9fe3051a4241cd6e8b7c2f8d410aad0c8a4a1fa6..44ccd03004bf4613a48f311b5b2d0daa895cca5a 100644
--- a/ansi-tests/loop3.lsp
+++ b/ansi-tests/loop3.lsp
@@ -75,12 +75,12 @@
   (classify-error
    (loop for x on '(a b c)
 	 for x on '(d e f) collect x))
-  programm-error)
+  program-error)
 
 (deftest loop.3.15
   (classify-error
    (loop for (x . x) on '((a b) (c d)) collect x))
-  programm-error)
+  program-error)
 
 (deftest loop.3.16
   (loop for nil on nil do (return t))