diff --git a/random-phrase-generator.scm b/random-phrase-generator.scm
index cc6aebb..8bea795 100755
--- a/random-phrase-generator.scm
+++ b/random-phrase-generator.scm
@@ -46,7 +46,4 @@
       (format #t "Usage: ~a <words-list-file.txt>\n" (car args))
       (let ((WORDS-FILE (cadr args)))
         (set! *random-state* (random-state-from-platform))
-        (display
-         (string-upcase
-          (random-phrase WORDS-FILE (+ 3 (random 4)))))
-        (newline))))
+        (format #t "~a\n" (random-phrase WORDS-FILE (+ 3 (random 4)))))))