read/write invariance broken for some symbols

(let ([x (string->symbol "1")])
(eq? (with-input-from-string
(with-output-to-string
(lambda () (write x)))
(lambda () (read)))
x))
;=> '#f

|string->symbol| returns a symbol. |write| renders this
as \1 which |read| reads as the *number* 1.

One way to fix this would be to write |\1| instead, but
I don't know how difficult this would be and whether it
would break anything else.