1 files changed, 1 insertions, 1 deletions
diff --git a/UMain.pas b/UMain.pas
index 26d0781..da3753b 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -6403,7 +6403,7 @@ begin
                          else AListView := RightListView;
       Engine.Path := ExtractFilePath(APath);
       //  Extract the files
-      Result := ExtractFromArchive(APath, Engine, IncludeTrailingPathDelimiter(Engine.Path) + string(PDataItem(AListView.Selected.Data)^.FName), Res = mbNo);
+      Result := ExtractFromArchive(APath, Engine, APath, Res = mbNo);
     end;
 
   finally