--- a/DirectoryView.st	Wed May 13 23:54:07 1998 +0200
+++ b/DirectoryView.st	Mon May 18 13:53:53 1998 +0200
@@ -370,26 +370,30 @@
 
 readDirectory
 
-    |foundFiles list|    
+    |foundFiles list dir|    
+
     foundFiles := OrderedCollection new.
     list := self listOfFileFilters value.
 
     Cursor wait showWhile: 
     [ 
-        (DirectoryContents directoryNamed: directory) filesAndBasenamesDo: 
-        [:file :name|      
-            list do:
-            [:filter|
-                ((filter match: name) and: [(foundFiles includes: file) not])
-                ifTrue:
-                [
-                    foundFiles add: file
+        (dir := DirectoryContents directoryNamed: directory) notNil ifTrue:[
+            dir filesAndBasenamesDo:
+            [:file :name|      
+                list do:
+                [:filter|
+                    ((filter match: name) and: [(foundFiles includes: file) not])
+                    ifTrue:
+                    [
+                        foundFiles add: file
+                    ].
                 ].
             ].
-        ].
-        self listOfFiles contents: (foundFiles collect: [:file| FileRow new fileName: file])
+            self listOfFiles contents: (foundFiles collect: [:file| FileRow new fileName: file])
+        ]
     ]
 
+    "Modified: / 18.5.1998 / 13:02:47 / cg"
 !
 
 readMonitoringDirectory