diff --git a/scheme/repl.sld b/scheme/repl.sld
index eed07c94..6643ae60 100644
--- a/scheme/repl.sld
+++ b/scheme/repl.sld
@@ -47,6 +47,7 @@
           (newline)
           (repl))
         (display "cyclone> ")
+        (flush-output-port)
         (let ((obj (read)))
           (if (eof-object? obj)
               (newline) ;; Quick way to exit REPL