diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp
index 8b7cc3742b9764ee860996bfa56372d44a033bdd..90c5440e8db4b2548fb24e991b2d1d754e686470 100644
--- a/ansi-tests/printer-aux.lsp
+++ b/ansi-tests/printer-aux.lsp
@@ -175,7 +175,7 @@
 (defun make-random-vector (size)
   (if (> size 1)
       (let* ((nelems (min (1- size) (1+ (random (max 2 (floor size 4))))))
-	     (sizes (mapcar #'1+ (random-partition (- size nelems 1) nelems))))
+	     (sizes (mapcar #'1+ (random-partition* (- size nelems 1) nelems))))
 	(make-array nelems :initial-contents (mapcar #'make-random-vector sizes)))
     (rcase
      (1 (random-from-seq #(a b c d e f g)))