diff --git a/editor/editor.lisp b/editor/editor.lisp
index df47b82..1d79cb7 100644
--- a/editor/editor.lisp
+++ b/editor/editor.lisp
@@ -757,8 +757,11 @@ Additionally ensures correct line numbers on the way, as a bonus."
   "If non-NIL, reload asm function addresses from listing before every compile.")
 
 (defun draw-transfer-progress (progress total)
-  (move-cursor 1 0)
-  (format *eio* "Uploading, ~D/~D~%" progress total))
+  (clear-screen)
+  (let ((text (format nil "Uploading, ~4,'0D/~4,'0D" progress total)))
+    (move-cursor 12 (- (/ 80 2) (/ (length text) 2)))
+    (write-string text *eio*)
+    (force-output *eio*)))
 
 (defun com-compile-buffer ()
   (when *refresh-asm-functions-p*