diff --git a/ansi-tests/universe.lsp b/ansi-tests/universe.lsp
index c9ee5be3c922db92fc2f67e130b00faeaeda6ff5..6d48cb4fac430e57aee505b9cd293fafd53c1870 100644
--- a/ansi-tests/universe.lsp
+++ b/ansi-tests/universe.lsp
@@ -250,6 +250,12 @@
 	       for d in *array-dimensions*
 	       collect (make-array d :element-type tp)))
 
+     ;; More typed arrays
+     (loop for i from 1 to 64
+	   append
+	   (list (make-array 10 :element-type `(unsigned-byte ,i))
+		 (make-array 10 :element-type `(signed-byte ,i))))
+
      ;; adjustable arrays
      (loop
        for d in *array-dimensions*