--- a/Tools__Inspector2.st	Sun Jul 24 12:37:55 2011 +0200
+++ b/Tools__Inspector2.st	Mon Jul 25 10:51:16 2011 +0200
@@ -429,7 +429,7 @@
 !Inspector2::NavigationState class methodsFor:'documentation'!
 
 version
-    ^'$Id: Tools__Inspector2.st,v 1.10 2011-07-23 10:41:37 vrany Exp $'
+    ^'$Id: Tools__Inspector2.st,v 1.11 2011-07-25 08:51:16 cg Exp $'
 !
 
 version_SVN
@@ -529,13 +529,14 @@
 
 displayString
 
-    displayString ifNil:
-        [displayString := theObject printString.
-        displayString size > 15 ifTrue:[displayString := (displayString copyTo:12),  '...'].
-        displayString := displayString , ' [', theObject class name , ']'].
+    displayString isNil ifTrue:[
+        displayString := theObject printString contractAtEndTo:15.
+        displayString := displayString , ' [', theObject class name , ']'
+    ].
     ^ displayString
 
     "Created: / 21-02-2008 / 19:53:07 / janfrog"
+    "Modified: / 25-07-2011 / 10:50:52 / cg"
 ! !
 
 !Inspector2::NavigationState methodsFor:'initialization'!
@@ -609,7 +610,7 @@
 !Inspector2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.10 2011-07-23 10:41:37 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.11 2011-07-25 08:51:16 cg Exp $'
 !
 
 version_CVS_jvrany