--- a/ValueHolder.st	Thu Oct 22 16:15:34 2009 +0200
+++ b/ValueHolder.st	Thu Oct 22 21:09:13 2009 +0200
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+"{ Package: 'stx:libview2' }"
 
 ValueModel subclass:#ValueHolder
 	instanceVariableNames:'value'
@@ -134,10 +135,23 @@
     ^ self class name , '(' , value displayString , ')'
 
     "Modified: 20.9.1997 / 11:42:02 / cg"
+!
+
+printOn:aStream
+    "return a string for display in inspectors etc."
+
+    self class name printOn:aStream.
+    aStream nextPutAll:'('.
+    value printOn:aStream.
+    aStream nextPutAll:')'
 ! !
 
 !ValueHolder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ValueHolder.st,v 1.18 2000-03-14 17:16:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ValueHolder.st,v 1.19 2009-10-22 19:09:13 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview2/ValueHolder.st,v 1.19 2009-10-22 19:09:13 cg Exp $'
 ! !