# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1256756071 -3600
# Node ID 469bd38ba4c6271f9f9b5bcbb090c4ffe92c0426
# Parent  72d58586f5a5971eda6a36783b08286b4cd2a308
changed: #startDiskUsageInfoProcessFor:

diff -r 72d58586f5a5 -r 469bd38ba4c6 DirectoryContentsBrowser.st
--- a/DirectoryContentsBrowser.st	Wed Oct 28 19:53:45 2009 +0100
+++ b/DirectoryContentsBrowser.st	Wed Oct 28 19:54:31 2009 +0100
@@ -2763,8 +2763,10 @@
             self notify:('collecting disk usage of %1...' bindWith:directory baseName).
             kiloBytes := self diskUsageInKiloBytesFor:directory.
             kiloBytes notNil ifTrue:[
-                diskUsageInfo at:dirPath put:(Timestamp now -> kiloBytes).
-                self showDiskUsageInfoFor:directory as:kiloBytes.
+                diskUsageInfo notNil ifTrue:[
+                    diskUsageInfo at:dirPath put:(Timestamp now -> kiloBytes).
+                    self showDiskUsageInfoFor:directory as:kiloBytes.
+                ].
             ]
         ] fork.
 ! !
@@ -3285,9 +3287,9 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.227 2009-10-28 15:40:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.228 2009-10-28 18:54:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.227 2009-10-28 15:40:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.228 2009-10-28 18:54:31 cg Exp $'
 ! !