diff --git a/ansi-tests/remove-aux.lsp b/ansi-tests/remove-aux.lsp
index c8e91ef72c90f6855a2cd32ef2ac616d2eb9c60e..da01abe4f042cd230493e607b9fe6dc6bb54cb79 100644
--- a/ansi-tests/remove-aux.lsp
+++ b/ansi-tests/remove-aux.lsp
@@ -35,7 +35,7 @@
 		(let ((seq (if (and (subtypep type 'vector)
 				    (coin 3))
 			       (make-array
-				(list (+ len (random len)))
+				(list (+ len (random (1+ len))))
 				:initial-element (make-random-element element-type)
 				:fill-pointer len
 				:element-type element-type)