--- a/TestTester.st	Tue Apr 27 09:47:44 2010 +0200
+++ b/TestTester.st	Tue Apr 27 10:48:09 2010 +0200
@@ -832,13 +832,14 @@
             selectedTesteeMethod := method.
 "/ self halt.
             self originalMethodSourceHolder value:source.
+            self mutatedMethodSourceHolder value:nil.
 
             self updateDiffTextView.
         ].
     ].
 
     "Created: / 25-04-2010 / 15:51:03 / cg"
-    "Modified: / 27-04-2010 / 01:39:47 / cg"
+    "Modified: / 27-04-2010 / 09:54:19 / cg"
 !
 
 updateDiffTextView
@@ -1079,5 +1080,5 @@
 !TestTester class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestTester.st,v 1.3 2010-04-27 07:47:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestTester.st,v 1.4 2010-04-27 08:48:09 cg Exp $'
 ! !