1 files changed, 2 insertions, 1 deletions
diff --git a/XPrompt.hs b/XPrompt.hs
index 51d8756..88ff943 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -446,7 +446,8 @@ printPrompt drw = do
 getCompletions :: XP [String]
 getCompletions = do
   s <- get
-  io $ (completionFunction s) (getLastWord $ command s)
+  io $ ((completionFunction s) (getLastWord $ command s)
+       `catch` \_ -> return [])
 
 setComplWin :: Window -> ComplWindowDim -> XP ()
 setComplWin w wi =