--- a/RegressionTests__BecomeTests.st	Wed May 09 12:18:46 2012 +0200
+++ b/RegressionTests__BecomeTests.st	Wed May 09 13:45:38 2012 +0200
@@ -17,18 +17,16 @@
 
     | a b c d |
 
-    a := 'ab' copy.
-    b := 'cd' copy.
-    c := a.
-    d := b.
+    a := c := '123' copy.
+    b := d := 'cd' copy.
 
     a become: b.
 
     self 
         assert: a = 'cd';
-        assert: b = 'ab';
+        assert: b = '123';
         assert: c = 'cd';
-        assert: d = 'ab'.
+        assert: d = '123'.
 
 
     "
@@ -139,6 +137,10 @@
     a become: b.
 
     self 
+        assert: a = 'cd';
+        assert: b = 'ab';
+        assert: c = 'cd';
+        assert: d = 'ab';
         assert: a hash = hb;
         assert: b hash = ha;
         assert: c hash = hb;