diff --git a/tests/trac.lisp b/tests/trac.lisp
index 2f9a4ae81b5d7b52df408abe6f46d56ac8f97f81..a2a1e35dd2d3e58a6827d030d4a20cdd914f6c6d 100644
--- a/tests/trac.lisp
+++ b/tests/trac.lisp
@@ -157,7 +157,7 @@
 	      (dotimes (i 300)
 		(let ((ch (read-char s nil nil)))
 		  (unless (= i (char-code ch))
-		    (push (list i ch (char-code ch)) faillures)))))
+		    (push (list i ch (char-code ch)) failures)))))
 	    failures)
        (delete-file path)))))