diff --git a/src/GUI/Gtk/Callbacks.hs b/src/GUI/Gtk/Callbacks.hs
index eb6a93d..1d2d93e 100644
--- a/src/GUI/Gtk/Callbacks.hs
+++ b/src/GUI/Gtk/Callbacks.hs
@@ -146,8 +146,9 @@ copyFinal mygui myview = withErrorDialog $ do
       dest <- goUp mcdir
       let cmsg = "Really copy \"" ++ fullPath s
                  ++ "\"" ++ " to \"" ++ fullPath dest ++ "\"?"
+      cm <- showCopyModeChooserDialog
       withConfirmationDialog cmsg
-        (runFileOp (FCopy . CC s dest $ Strict)
+        (runFileOp (FCopy . CC s dest $ cm)
          >> refreshTreeView mygui myview Nothing)
       return ()
     _ -> return ()