       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)


(def attributes
     (list 
      :time DateMidnight
      :version (Integer/TYPE)
      :type String
      :length (Float/TYPE)

	   Creator
	   Metadata
	   Model
	   ])
 )

