diff --git a/test-raw.rkt b/test-raw.rkt
index 4737d12..e92437b 100644
--- a/test-raw.rkt
+++ b/test-raw.rkt
@@ -8,9 +8,8 @@
   (let loop ()
     (define ch (read-byte))
     (display (select-graphic-rendition ch))
-    (printf "Byte: ~v" ch)
     (display (clear-to-eol))
-    (display "\015\012")
+    (printf "Byte: ~v\015\012" ch)
     (display (select-graphic-rendition))
     ;;(flush-output)
     (if (member ch '(4 8 127)) ;; EOF, C-h, DEL