std/ports.scm; fixed (read-char) to return chars
fixed `open-input-string` crash