diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp
index 57467f2d9ba472daf6ac3c4382f4fe3dad3684c5..e384a8f8b02bb3acc1d4c34639bfa9ceefb84ca1 100644
--- a/ansi-tests/random-int-form.lsp
+++ b/ansi-tests/random-int-form.lsp
@@ -121,7 +121,7 @@
 
 (defun test-random-integer-form
   (size nvars &aux (vars (subseq '(a b c d e f g h i j k l m
-				     n o p q r s t u v w x y z) 0 nvars)))
+				     n o p q r s u v w x y z) 0 nvars)))
   (let* ((var-ranges (mapcar #'make-random-integer-range vars))
 	 (var-types (mapcar #'(lambda (range)
 				(let ((lo (car range))