The definition of char-generator uses (make-random-integer-generator 0
max-char), where the upper bound is exclusive.  So you might want to have

     (define max-char (cond-expand (full-unicode #x110000) (else 128)))

Brad