Use inspect label on inspector tab.

src/Helios-Inspector.js

@@ -1723,7 +1723,6 @@ var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-$self._setTabLabel_($recv(anObject)._printString());
 (
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 $ctx1.supercall = true,
@@ -1732,6 +1731,7 @@ $ctx1.supercall = true,
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 $ctx1.supercall = false;
 //>>excludeEnd("ctx");;
+$self._setTabLabel_($self._label());
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"inspect:",{anObject:anObject})});
@@ -1739,11 +1739,11 @@ return self;
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anObject"],
-source: "inspect: anObject\x0a\x09self setTabLabel: anObject printString.\x0a\x09super inspect: anObject",
+source: "inspect: anObject\x0a\x09super inspect: anObject.\x0a\x09self setTabLabel: self label",
 referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
-messageSends: ["setTabLabel:", "printString", "inspect:"]
+messageSends: ["inspect:", "setTabLabel:", "label"]
 }),
 $globals.HLInspector);
 

src/Helios-Inspector.st

@@ -378,8 +378,8 @@ HLInspectorWidget subclass: #HLInspector
 !HLInspector methodsFor: 'actions'!
 
 inspect: anObject
-	self setTabLabel: anObject printString.
-	super inspect: anObject
+	super inspect: anObject.
+	self setTabLabel: self label
 ! !
 
 !HLInspector methodsFor: 'rendering'!