--- a/CachedValue.st	Wed Oct 31 01:54:30 2018 +0100
+++ b/CachedValue.st	Sun Nov 04 15:28:51 2018 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#CachedValue
 	instanceVariableNames:'value expirationTime computation validityDuration'
 	classVariableNames:''
@@ -138,6 +140,10 @@
     expirationTime := something.
 !
 
+forceInvalid
+    validityDuration := nil
+!
+
 value
     "return my value. If not yet computed or expired, recompute using the computation block.
      Otherwise return the cacehdValue"
@@ -202,11 +208,12 @@
 !CachedValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/CachedValue.st,v 1.3 2012-11-02 17:14:56 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/CachedValue.st,v 1.3 2012-11-02 17:14:56 cg Exp $'
+    ^ '$Header$'
 ! !
 
+
 CachedValue::ValueExpiredException initialize!