diff --git a/CHANGELOG.md b/CHANGELOG.md
index 3046996f..49872a00 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,9 @@
+# v3.9.27-devel
+
+## Bugs fixed
+
+- Mini-explorer, clearing the filter had for effect to scan the root folder instead of the selected one. (#129)
+
 # v3.9.26
 
 ## Enhancements
diff --git a/src/u_miniexplorer.pas b/src/u_miniexplorer.pas
index 61ce4637..07b666be 100644
--- a/src/u_miniexplorer.pas
+++ b/src/u_miniexplorer.pas
@@ -737,11 +737,14 @@ end;
 
 procedure TMiniExplorerWidget.lstFilterButtonClick(Sender: TObject);
 var
-  s: string;
+  r: string;
+  n: TTreeNode;
 begin
-  s := treeFolders.Root;
+  r := treeFolders.Root;
+  n := treeFolders.Selected;
   treeFolders.Root:= '';
-  treeFolders.Root:= s;
+  treeFolders.Root:= r;
+  treeFolders.Selected := n;
 end;
 
 procedure TMiniExplorerWidget.lstFilterKeyUp(Sender: TObject; var Key: Word;