--- a/DirectoryContentsBrowser.st	Tue Jun 23 10:55:37 2009 +0200
+++ b/DirectoryContentsBrowser.st	Tue Jun 23 22:46:18 2009 +0200
@@ -2090,7 +2090,7 @@
         ((row <= browserItemList size) and:[ (browser isRowVisible:row) ]) ifFalse:[
             ^ nil.
         ].
-        item := browserItemList at:row.
+        item := browserItemList at:row ifAbsent:[^ nil "possible race condition - item removed from browserItemList"].
         (aConditionBlock value:item) ifTrue:[
             ^ item.
         ].
@@ -3302,5 +3302,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.220 2009-02-06 12:01:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.221 2009-06-23 20:46:18 stefan Exp $'
 ! !