diff --git a/test/kan-test.lisp b/test/kan-test.lisp
index 2b39fc1..78b1260 100644
--- a/test/kan-test.lisp
+++ b/test/kan-test.lisp
@@ -114,4 +114,6 @@
 	(delete (nth 1 faces) faces)
 	(cat:check-hat od 1 3 faces)
 	(setf (nth 2 faces) (nth 1 faces))
-	(signals simple-error (cat:check-hat od 1 3 faces))))
+	(signals #-ecl simple-error
+		 #+ecl simple-type-error
+		 (cat:check-hat od 1 3 faces))))