--- a/TestCase.st	Mon Nov 04 12:52:10 2002 +0100
+++ b/TestCase.st	Mon Nov 04 22:29:56 2002 +0100
@@ -64,7 +64,11 @@
 !
 
 forgetLastTestRunResult
-    lastTestrunResultOrNil := nil
+    lastTestrunResultOrNil ~~ nil ifTrue:[
+        lastTestrunResultOrNil := nil.
+        Smalltalk changed:#lastTestRunResult with:self.
+        self changed:#lastTestRunResult.
+    ]
 !
 
 lastTestrunResultOrNil
@@ -72,11 +76,19 @@
 !
 
 rememberFailedTestRun
-    lastTestrunResultOrNil := false
+    lastTestrunResultOrNil ~~ false ifTrue:[
+        lastTestrunResultOrNil := false.
+        Smalltalk changed:#lastTestRunResult with:self.
+        self changed:#lastTestRunResult.
+    ]
 !
 
 rememberPassedTestRun
-    lastTestrunResultOrNil := true
+    lastTestrunResultOrNil ~~ true ifTrue:[
+        lastTestrunResultOrNil := true.
+        Smalltalk changed:#lastTestRunResult with:self.
+        self changed:#lastTestRunResult.
+    ]
 !
 
 resources
@@ -362,7 +374,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.27 2002-11-04 11:52:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.28 2002-11-04 21:29:56 cg Exp $'
 ! !
 
 TestCase initialize!