--- a/InspectorView.st	Thu Apr 04 08:30:54 2013 +0200
+++ b/InspectorView.st	Thu Apr 04 09:39:21 2013 +0200
@@ -2376,8 +2376,8 @@
     s := CharacterWriteStream on:''.
     names := self indexList.
     names size > 0 ifTrue:[
-        maxLen := (names collect:[:eachName | eachName printString size]) max.
-        padLeft := names conform:[:eachIdx | eachIdx isInteger].
+        maxLen := names inject:0 into:[:maxSoFar :eachName | (eachName printString size) max:maxSoFar]. 
+        padLeft := names conform:[:eachIdx | eachIdx isInteger].  
         
         names do:[:eachIdx |
             |val|
@@ -3326,8 +3326,8 @@
         [
             s := self displayStringForValue:someValue.
         ] valueWithWatchDog:[
-            s := someValue classNameWithArticle
-        ] afterMilliseconds:100.
+            s := someValue classNameWithArticle,' "- printString generation took too long"'
+        ] afterMilliseconds:1000.
 
         s = workspace selectionAsString ifFalse:[
             workspace replace:s.
@@ -3505,10 +3505,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.303 2013-04-02 09:33:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.304 2013-04-04 07:39:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.303 2013-04-02 09:33:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.304 2013-04-04 07:39:21 cg Exp $'
 ! !