--- a/HierarchicalFileList.st	Mon Jul 23 19:26:59 2018 +0200
+++ b/HierarchicalFileList.st	Mon Jul 23 19:27:25 2018 +0200
@@ -251,12 +251,14 @@
     matchBlock := aBlock.
 
     root notNil ifTrue:[
-        self recursionLock critical:[
+        self criticalDo:[
             self stopMonitoringTask.
             root matchBlockChanged.
         ].
         self startMonitoringTask.
     ].
+
+    "Modified: / 23-07-2018 / 13:24:06 / Stefan Vogel"
 !
 
 sortBlock
@@ -286,12 +288,14 @@
     sortBlock := aBlock.
 
     root notNil ifTrue:[
-        self recursionLock critical:[
+        self criticalDo:[
             self stopMonitoringTask.
             root recursiveSort:aBlock.
         ].
         self startMonitoringTask.
     ].
+
+    "Modified: / 23-07-2018 / 13:24:17 / Stefan Vogel"
 ! !
 
 !HierarchicalFileList methodsFor:'private-monitoring task'!