--- a/AbstractFileBrowser.st	Mon Jun 09 14:11:55 2008 +0200
+++ b/AbstractFileBrowser.st	Mon Jun 09 14:12:01 2008 +0200
@@ -2873,6 +2873,11 @@
     ^ self aspectFor:#rootHolder ifAbsent:[
         self class rootHolder asValue.
     ].
+!
+
+rootHolder:aHolder
+
+    self aspectFor:#rootHolder put:aHolder
 ! !
 
 !AbstractFileBrowser methodsFor:'aspects handling'!
@@ -7400,5 +7405,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.374 2008-06-05 16:10:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.375 2008-06-09 12:12:01 stefan Exp $'
 ! !