I think that instead of producing a string directly, you need to produce something whose printed representation is that string. Maybe like (totally untested and buggy):
(struct v (s) #:property prop:custom-write (lambda (v p m) (write (v-s v) p))
and then wrap (v ...) around the with-output-to-string.