--- a/DirectoryContents.st	Fri Feb 12 15:57:38 1999 +0100
+++ b/DirectoryContents.st	Sat Feb 13 14:59:42 1999 +0100
@@ -313,20 +313,22 @@
     "check whether files and types are set; than run from
      1 to size evaluating the block with the index
     "
-    |file
+    |file t f
      size "{ Class:SmallInteger }"|
 
     size := names size.
 
     types isNil ifTrue:[
-        types := Array new:size.
-        files := Array new:size.
+        t := Array new:size.
+        f := Array new:size.
 
         1 to:size do:[:i|
             file := directory construct:(names at:i).
-            types at:i put:(file isDirectory).
-            files at:i put:file
-        ]
+            t at:i put:(file isDirectory).
+            f at:i put:file
+        ].
+        types := t.
+        files := f.
     ].
     1 to:size do:[:i| aOneArgBlock value:i]
 ! !
@@ -358,5 +360,5 @@
 !DirectoryContents class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.7 1998-11-22 13:07:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.8 1999-02-13 13:59:42 cg Exp $'
 ! !