--- a/FileSelectionBrowser.st	Thu Feb 05 13:46:11 1998 +0100
+++ b/FileSelectionBrowser.st	Thu Feb 05 16:07:58 1998 +0100
@@ -44,13 +44,6 @@
     [author:]
         Thomas Zwick
 "
-!
-
-history
-
-    "Created: / 10.1.1998 / 11:00:06 / tz"
-    "Modified: #windowSpec / 5.2.1998 / 09:36:40 / cg"
-    "Modified: #windowSpec / 5.2.1998 / 12:25:27 / cg"
 ! !
 
 !FileSelectionBrowser class methodsFor:'instance creation'!
@@ -291,11 +284,8 @@
 !
 
 readDirectory
-    "Diesen Mist musste ich machen, weil ztk es nicht fertig bringt,
-    seine Models upzudaten, bevor er die Callbacks aufruft!!!!!!"
 
     |dir|
-    directoryView listOfFiles removeAll.
     directoryView directory: 
         (dir := (self directoryTreeView model list at:
         self directoryTreeView model selection) contents name);