     (let [value (call-gen gen rand-seed size)]
       (if (f value)
         value
-        (recur rand-seed size))))])
+        (recur rand-seed (inc size)))))])
 
 ;; Generic generators and helpers
 ;; ---------------------------------------------------------------------------


(defn string-alpha-numeric-gen
  [rand-seed size]
  (clojure.string/join (repeatedly size #(call-gen char-alpha-numeric rand-seed size))))

(def string-alpha-numeric
  "Generate alpha-numeric strings."


(defn string-ascii-gen
  [rand-seed size]
  (clojure.string/join (repeatedly (call-gen (choose 0 size) rand-seed size)
                                   #(call-gen char-ascii rand-seed size))))

(def string-ascii
  "Generate ascii strings."
