diff --git a/fcore/normal-mode/normal-yank-delete.sml b/fcore/normal-mode/normal-yank-delete.sml
index e070cb9..62dd6ab 100644
--- a/fcore/normal-mode/normal-yank-delete.sml
+++ b/fcore/normal-mode/normal-yank-delete.sml
@@ -6,7 +6,7 @@ structure NormalYankDelete =
 
        fun initMsgs (low, length, buffer) =
          let
-           val str = LineGap.substring (low, length, buffer)
+           val str = LineGap.substring (low, length + 1, buffer)
            val msg = YANK str
          in
            [DRAW msg]
diff --git a/shf-rgfw b/shf-rgfw
index cc76c47..70f36e4 100755
Binary files a/shf-rgfw and b/shf-rgfw differ
diff --git a/todo.md b/todo.md
index 2666fbd..674faa0 100644
--- a/todo.md
+++ b/todo.md
@@ -1,3 +1,4 @@
 # To-do list
 - Bind gamepad functions from GLFW and/or RGFW
 - Implement 'yj' motion and add tests for it
+- Add tests for NormalYankDelete functions, to make sure that they are yanking the expected string.