diff --git a/fcore/text-builder/text-builder-utils.sml b/fcore/text-builder/text-builder-utils.sml
index 8299d53..a8e21ad 100644
--- a/fcore/text-builder/text-builder-utils.sml
+++ b/fcore/text-builder/text-builder-utils.sml
@@ -133,7 +133,7 @@ struct
         , startY = 5
 
         , scrollColumnStart = visualScrollColumn
-        , scrollColumnEnd = TC.textLineCount
+        , scrollColumnEnd = visualScrollColumn + TC.textLineCount
 
         , lastLineNumber =
             let