diff --git a/src/simplicial-sets.lisp b/src/simplicial-sets.lisp
index 36bae9f..8f400af 100644
--- a/src/simplicial-sets.lisp
+++ b/src/simplicial-sets.lisp
@@ -373,7 +373,7 @@
        (with-absm (dgop gmsm) absm
 		  (multiple-value-bind (dgop2 1dlop) (1dlop-dgop indx dgop)
 		    (declare (fixnum dgop2)
-			     #-(or ccl lispworks sbcl)
+			     #-(or ccl ecl lispworks sbcl)
 			     (type (or fixnum nil) 1dlop))
 		    ;; Bug LispWorks if this or-type defined
 		    (unless 1dlop