In practice, I wouldn't believe to be that much of a problem. Who would want to mimic the abominable symbols generated by arc with the current methods anyway, intentionally or otherwise?
(define (ar-gensym)
(set! ar-gensym-count (+ ar-gensym-count 1))
(string->uninterned-symbol (string-append "gs" (number->string ar-gensym-count))))-----