#'PRESENT: misprinted strings

[phoe]

CL-USER> (dissect:present t)
;; (...)
 16: (SWANK::EVAL-REGION (dissect:present t)
)
 17: ((LAMBDA NIL :IN SWANK-REPL::REPL-EVAL))

I assume that the string should be printed with ~S instead of ~A, since now we have lost string quotes. In addition, we have an unnecessary newline printed after the string.