diff --git a/fcore/text-builder.sml b/fcore/text-builder.sml
index cb27c58..0ad6591 100644
--- a/fcore/text-builder.sml
+++ b/fcore/text-builder.sml
@@ -328,9 +328,9 @@ struct
             val chrFun = Vector.sub (CozetteAscii.asciiTable, Char.ord chr)
             val cursorAcc = 
               if absIdx <> cursorPos then
-                buildCursor (posX, posY, fWindowWidth, fWindowHeight)
-              else 
                 cursorAcc
+              else 
+                buildCursor (posX, posY, fWindowWidth, fWindowHeight)
           in
             if posX + xSpace < windowWidth then
               let
diff --git a/shf b/shf
index d1cffd4..0860c09 100755
Binary files a/shf and b/shf differ