--- a/src/ansi-tests/array.lisp
+++ b/src/ansi-tests/array.lisp
@@ -248,8 +248,8 @@
        #+gcl (equal s "63")
        #+allegro (equal s "65536")
        #+(or cmu sbcl) (equal s "65529")
-       #+ecls (equal s "64")
-       #-(or xcl clisp akcl allegro cmu sbcl ecls) "unknown"
+       #+ecl (equal s "64")
+       #-(or xcl clisp akcl allegro cmu sbcl ecl) "unknown"
        ) )
  t)
 
@@ -261,8 +261,8 @@
        #+clisp (equal s (prin1-to-string (1+ most-positive-fixnum)))
        #+allegro (equal s "16777216")
        #+(or cmu sbcl) (equal s "536870911")
-       #+ecls (equal s "16777216")
-       #-(or xcl clisp akcl allegro cmu sbcl ecls) "unknown"
+       #+ecl (equal s "16777216")
+       #-(or xcl clisp akcl allegro cmu sbcl ecl) "unknown"
        ) )
  t)
 
@@ -273,8 +273,8 @@
        #+clisp (equal s (prin1-to-string (1+ most-positive-fixnum)))
        #+allegro (equal s "16777216")
        #+(or cmu sbcl) (equal s "536870911")
-       #+ecls (equal s "16777216")
-       #-(or xcl clisp akcl allegro cmu sbcl ecls) "unknown"
+       #+ecl (equal s "16777216")
+       #-(or xcl clisp akcl allegro cmu sbcl ecl) "unknown"
        ) )
  t)
 
@@ -319,8 +319,8 @@
  (array-element-type da1)
  #+(or xcl allegro cmu sbcl) double-float
  #+clisp t
- #+(or akcl ecls) long-float
- #-(or xcl clisp akcl allegro cmu sbcl ecls) unknown)
+ #+(or akcl ecl) long-float
+ #-(or xcl clisp akcl allegro cmu sbcl ecl) unknown)
 
 ;;test rang
 
@@ -365,8 +365,8 @@
 
 (my-assert
  (setf (aref zero) 1.0)
- #+(or xcl clisp akcl allegro cmu sbcl ecls) type-error
- #-(or xcl clisp akcl allegro cmu sbcl ecls) unknown)
+ #+(or xcl clisp akcl allegro cmu sbcl ecl) type-error
+ #-(or xcl clisp akcl allegro cmu sbcl ecl) unknown)
 
 (unintern 'zero)
 
@@ -1000,7 +1000,7 @@
 (my-assert
  (vector-push-extend 5.0s0 vmfad)
  #+(or xcl gcl allegro cmu sbcl) error
- #+(or clisp ecls (and akcl (not gcl))) 0
- #-(or xcl clisp akcl allegro cmu sbcl ecls) unknown)
+ #+(or clisp ecl (and akcl (not gcl))) 0
+ #-(or xcl clisp akcl allegro cmu sbcl ecl) unknown)
 
 (unintern 'vmfad)