       creator
       (into-array
        Object
-       [(DateMidnight. (+ (rand-int 10) 2000)
-		       (+ (rand-int 12) 1)
-		       (+ (rand-int 28) 1))
+       [(Date. (+ (rand-int 10) 0)
+	       (rand-int 12)
+	       (+ (rand-int 28) 1))
 	0
 	(rnd types)
 	(/ (rand-int max-length-x-100) 100)

;; how about the application of fns vertically as well as horizontally
;; during transforms.


 (:import [java.math
	   ])
 (:import [java.util
	   Date
	   NavigableSet
	   TreeSet
	   ])
