diff --git a/fcore/buffer.sml b/fcore/buffer.sml
index 6517210..6c8e0ae 100644
--- a/fcore/buffer.sml
+++ b/fcore/buffer.sml
@@ -112,7 +112,7 @@ struct
        * call function to build next string *)
       continueBuildTextLineGap
         ( tl, acc, posX, posY, startX
-        , windowWidth, windowHeight, fWindowWidth, fWindowWidth
+        , windowWidth, windowHeight, fWindowWidth, fWindowHeight
         , r, g, b
         )
 
diff --git a/shell/shell.sml b/shell/shell.sml
index 4e97a6f..6765d45 100644
--- a/shell/shell.sml
+++ b/shell/shell.sml
@@ -5,7 +5,7 @@ struct
   fun ioToLineGap (io, acc) =
     case TextIO.inputLine io of
       SOME str => ioToLineGap (io, LineGap.append (str, acc))
-    | NONE => acc
+    | NONE => LineGap.goToStart acc
 
   fun main () =
     let
diff --git a/shf b/shf
index 715af93..c72c1cc 100755
Binary files a/shf and b/shf differ