--- a/src/Termonad/Term.hs
+++ b/src/Termonad/Term.hs
@@ -181,7 +181,7 @@
 relabelTab notebook label scrolledWin term = do
   pageNum <- notebookPageNum notebook scrolledWin
   title <- terminalGetWindowTitle term
-  labelSetLabel label $ tshow (pageNum + 1) <> ". " <> title
+  labelSetLabel label $ tshow (pageNum + 1) <> ". " <> fromMaybe mempty title
 
 showScrollbarToPolicy :: ShowScrollbar -> PolicyType
 showScrollbarToPolicy ShowScrollbarNever = PolicyTypeNever
