--- a/HierarchicalList.st	Tue Oct 08 21:29:52 2002 +0200
+++ b/HierarchicalList.st	Wed Oct 09 07:49:25 2002 +0200
@@ -135,7 +135,6 @@
 application:anApplication
     "set the responsible application
     "
-    self recursionLock.
     application := anApplication.
 !
 
@@ -202,6 +201,12 @@
 
 !HierarchicalList methodsFor:'private'!
 
+criticalDo:aBlock
+    "evaluate the block in a critical region
+    "
+    ^ recursionLock critical:aBlock
+!
+
 initContents:aSize
     recursionLock isNil ifTrue:[
         recursionLock := RecursionLock new
@@ -363,5 +368,5 @@
 !HierarchicalList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.13 2002-09-30 16:17:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.14 2002-10-09 05:49:25 ca Exp $'
 ! !