--- a/DirectoryContents.st	Tue Feb 06 14:58:29 2001 +0100
+++ b/DirectoryContents.st	Wed Feb 07 10:41:51 2001 +0100
@@ -148,6 +148,28 @@
     "Created: / 11.2.2000 / 00:13:59 / cg"
 !
 
+flushCachedDirectory:aDirectory
+    "remove directory from cache
+    "
+    |index file|
+
+    (CachedDirectories notNil and:[aDirectory notNil]) ifTrue:[
+        file := aDirectory asFilename.
+
+        file isDirectory ifTrue:[
+            LockSema critical:[
+                CachedDirectories notNil ifTrue:[
+                    index := CachedDirectories findFirst:[:d| d directory = file ].
+
+                    index ~~ 0 ifTrue:[
+                        CachedDirectories removeAtIndex:index.
+                    ]
+                ]
+            ]
+        ]
+    ].
+!
+
 lowSpaceCleanup
     "flush list of rememebred directory contents when low on memory"
 
@@ -421,6 +443,6 @@
 !DirectoryContents class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.13 2001-02-06 13:58:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.14 2001-02-07 09:41:51 ca Exp $'
 ! !
 DirectoryContents initialize!