diff --git a/scheme-core/system.scm b/scheme-core/system.scm
index 907897b..49ead9b 100644
--- a/scheme-core/system.scm
+++ b/scheme-core/system.scm
@@ -946,7 +946,7 @@ Up Scheme
 
 (define (repl)
   (define (prompt)
-    (display "up> ")
+    (display (string-append (sgr bold (fg cyan)) "up>" (sgr) " "))
     (io.flush *output-stream*)
     (let ((v (trycatch (read)
                        (lambda (e) (begin (io.discardbuffer *input-stream*)