diff --git a/rmacs/render.rkt b/rmacs/render.rkt
index dca6961..1c59df5 100644
--- a/rmacs/render.rkt
+++ b/rmacs/render.rkt
@@ -9,7 +9,7 @@
 (require "display.rkt")
 (require "rope.rkt")
 
-(define top-of-window-mtype (mark-type "top-of-window" 'right))
+(define top-of-window-mtype (mark-type "top-of-window" 'left))
 
 (define (newline? c) (equal? c #\newline))
 (define (not-newline? c) (not (newline? c)))