--- a/StandardSystemView.st	Fri Mar 27 12:03:11 2009 +0100
+++ b/StandardSystemView.st	Thu Apr 02 23:51:51 2009 +0200
@@ -1209,17 +1209,14 @@
 
 !StandardSystemView methodsFor:'printing & storing'!
 
-displayString
+printOn:aStream
     "just for your convenience in inspectors ...
      ... add the views label to the displayString."
 
-    |s|
-
-    s := super displayString.
+    super printOn:aStream.
     label notNil ifTrue:[
-	s := s , '(' , label , ')'
+        aStream nextPut:$(.  label printOn:aStream. aStream nextPut:$).
     ].
-    ^ s
 ! !
 
 !StandardSystemView methodsFor:'private'!
@@ -1551,7 +1548,7 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.186 2008-11-17 17:29:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.187 2009-04-02 21:51:51 stefan Exp $'
 ! !
 
 StandardSystemView initialize!