--- a/IndirectValue.st	Mon May 17 18:53:10 2004 +0200
+++ b/IndirectValue.st	Tue May 18 13:47:52 2004 +0200
@@ -108,6 +108,12 @@
     ^ valueHolder value
 !
 
+valueHolder 
+    "return my valueHolder"
+
+    ^ valueHolder
+!
+
 valueHolder:aValueHolder
     "change my holder"
 
@@ -131,5 +137,5 @@
 !IndirectValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/IndirectValue.st,v 1.3 2004-02-24 10:30:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/IndirectValue.st,v 1.4 2004-05-18 11:47:52 cg Exp $'
 ! !