--- a/Structure.st	Wed Apr 22 18:06:44 2015 +0200
+++ b/Structure.st	Wed Apr 22 20:03:50 2015 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libcomp' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#Structure
 	instanceVariableNames:'superclass flags methodDictionary lookupFunction instSize i1 i2
 		i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19 i20
@@ -1225,8 +1227,7 @@
     args := aMessage arguments.
 
     (sel == #displayString) ifTrue:[
-       s := WriteStream on:''.
-       s nextPutAll:'Structure('.
+       s := CharacterWriteStream with:'Structure('.
        names := self allInstVarNames.
        names notNil ifTrue:[
            names keysAndValuesDo:[:idx :nm |
@@ -1235,7 +1236,7 @@
                s space
            ].
        ].
-       s nextPutAll:')'.
+       s nextPut:$).
        ^ s contents
     ].
 
@@ -1436,11 +1437,11 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.26 2014-03-05 22:14:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.27 2015-04-22 18:03:50 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.26 2014-03-05 22:14:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.27 2015-04-22 18:03:50 stefan Exp $'
 ! !