diff --git a/fcore/cursor.sml b/fcore/cursor.sml
index 708dd02..d39640d 100644
--- a/fcore/cursor.sml
+++ b/fcore/cursor.sml
@@ -18,7 +18,7 @@ struct
               (case tl of
                  _ :: _ =>
                    (* if there is another string after current head, we can increment cursorIdx *)
-                   bufferIdx + String.size hd - 1
+                   cursorIdx + 1
                | _ =>
                    (* if there is no string after current head, return original cursorIdx *)
                    cursorIdx)
diff --git a/shf b/shf
index 8bfd395..55cf738 100755
Binary files a/shf and b/shf differ