diff --git a/icyc.scm b/icyc.scm
index 5f9fff28..326f63af 100644
--- a/icyc.scm
+++ b/icyc.scm
@@ -50,6 +50,7 @@
     (cond
       ((not (eof-object? c))
        (write c)
+       (newline)
        (repl:next-line))
       (else 
         (display "\n")
diff --git a/runtime.c b/runtime.c
index 17ed42d0..338b5366 100644
--- a/runtime.c
+++ b/runtime.c
@@ -711,7 +711,7 @@ static object _Cyc_write(object x, FILE *port)
 
 object Cyc_write(object x, FILE *port)
 {object y = _Cyc_write(x, port);
- fprintf(port, "\n");
+ //fprintf(port, "\n");
  return y;}
 
 object Cyc_write_char(void *data, object c, object port) 
diff --git a/tests/unit-tests.scm b/tests/unit-tests.scm
index 7b6d79aa..856a10b2 100644
--- a/tests/unit-tests.scm
+++ b/tests/unit-tests.scm
@@ -361,5 +361,6 @@
 
 
 ; TODO: use display, output without surrounding quotes
-(write (list *num-passed* " tests passed with no errors"))
+(display (list *num-passed* "tests passed with no errors"))
+(newline)
 ;;