diff --git a/src/GUI/Gtk/Dialogs.hs b/src/GUI/Gtk/Dialogs.hs
index de7ace1..a51f082 100644
--- a/src/GUI/Gtk/Dialogs.hs
+++ b/src/GUI/Gtk/Dialogs.hs
@@ -28,6 +28,7 @@ import Control.Applicative
 import Control.Exception
   (
     catch
+  , throw
   , try
   , SomeException
   )
@@ -130,6 +131,7 @@ withCopyModeDialog fa =
     case e of
       FileDoesExist _ -> doIt
       DirDoesExist  _ -> doIt
+      e               -> throw e
   where
     doIt = do cm <- showCopyModeDialog
               case cm of