diff --git a/test/test-utilities.script b/test/test-utilities.script
index 8db75efcf4175411edaa805644c96752d4227c07..ad151a8da29bfe5886ce22794cb92db614133bc1 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -203,7 +203,7 @@
 (assert-equal "abcd" (strcat "a" nil "bc" "d"))
 (assert-equal "abcd" (reduce/strcat '("a" nil "bc" "d")))
 
-(defparameter *last-char-code* (1- (or #+(and allegro (not ics)) 256 char-code-limit)))
+(defparameter *last-char-code* (1- (or #+allegro excl:real-char-code-limit char-code-limit)))
 (defparameter *last-char* (code-char *last-char-code*))
 (defparameter *last-char-string* (string *last-char*))