diff --git a/src/HSFM/GUI/Gtk/Callbacks.hs b/src/HSFM/GUI/Gtk/Callbacks.hs
index 749c5ff..7b62fc9 100644
--- a/src/HSFM/GUI/Gtk/Callbacks.hs
+++ b/src/HSFM/GUI/Gtk/Callbacks.hs
@@ -464,7 +464,7 @@ goDir :: MyGUI -> MyView -> Item -> IO ()
 goDir mygui myview item = do
   cdir <- getCurrentDir myview
   modifyTVarIO (history myview)
-    (\(p, n) -> (path cdir `addHistory` p, n))
+    (\(p, _) -> (path cdir `addHistory` p, []))
   refreshView' mygui myview item
 
 
diff --git a/src/HSFM/GUI/Gtk/Utils.hs b/src/HSFM/GUI/Gtk/Utils.hs
index a18a845..b976da1 100644
--- a/src/HSFM/GUI/Gtk/Utils.hs
+++ b/src/HSFM/GUI/Gtk/Utils.hs
@@ -157,5 +157,5 @@ addHistory i xs
   | length xs == maxLength = i : take (maxLength - 1) xs
   | otherwise              = i : xs
   where
-    maxLength = 5
+    maxLength = 10