--- a/Structure.st	Sat May 21 12:57:55 2016 +0200
+++ b/Structure.st	Mon May 23 15:11:05 2016 +0200
@@ -1233,6 +1233,9 @@
     args := aMessage arguments.
 
     (sel == #displayString) ifTrue:[
+        "sr: do not change this #printString or keep attention to change also:
+         Workflow::ActivityLogPinViewer #doInspect
+         better implement #isStructure"
        s := CharacterWriteStream with:'Structure('.
        names := self allInstVarNames.
        names notNil ifTrue:[
@@ -1443,10 +1446,10 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.29 2015-05-11 13:20:01 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.29 2015-05-11 13:20:01 cg Exp $'
+    ^ '$Header$'
 ! !