diff --git a/src/u_miniexplorer.pas b/src/u_miniexplorer.pas
index 681a41cc..0da141e5 100644
--- a/src/u_miniexplorer.pas
+++ b/src/u_miniexplorer.pas
@@ -741,15 +741,8 @@ begin
 end;
 
 procedure TMiniExplorerWidget.lstFilterButtonClick(Sender: TObject);
-var
-  r: string;
-  n: TTreeNode;
 begin
-  r := treeFolders.Root;
-  n := treeFolders.Selected;
-  treeFolders.Root:= '';
-  treeFolders.Root:= r;
-  treeFolders.Selected := n;
+  filterFiles;
 end;
 
 procedure TMiniExplorerWidget.lstFilterKeyUp(Sender: TObject; var Key: Word;