fix gen-read-until-string

The rewrite of let/ec was correct.

However the rewrite of init above it
was wrong, as local variables were
messed up.