--- a/RegressionTests__STCCompilerTests.st	Mon May 07 11:02:50 2012 +0200
+++ b/RegressionTests__STCCompilerTests.st	Mon May 07 12:28:33 2012 +0200
@@ -49,28 +49,29 @@
 
     |val mthd|
 
-    self class recompile:#'nextLittleEndianNumber:from:'.
-
-    val := self nextLittleEndianNumber:4 from:#[1 2 3 4].
-    self assert:(val = 16r04030201).
-    val := self nextLittleEndianNumber:8 from:#[1 2 3 4 5 6 7 8].
-    self assert:(val = 16r0807060504030201).
+    Class withoutUpdatingChangesDo:[
+        self class recompile:#'nextLittleEndianNumber:from:'.
+        val := self nextLittleEndianNumber:4 from:#[1 2 3 4].
+        self assert:(val = 16r04030201).
+        val := self nextLittleEndianNumber:8 from:#[1 2 3 4 5 6 7 8].
+        self assert:(val = 16r0807060504030201).
 
-    mthd := (self class compiledMethodAt:#'nextLittleEndianNumber:from:').
-    (STCCompilerInterface new)
-        compileToMachineCode:mthd source
-        forClass:self class
-        selector:#'nextLittleEndianNumber:from:'
-        inCategory:mthd category
-        notifying:nil
-        install:true
-        skipIfSame:false
-        silent:true.
+        mthd := (self class compiledMethodAt:#'nextLittleEndianNumber:from:').
+        (STCCompilerInterface new)
+            compileToMachineCode:mthd source
+            forClass:self class
+            selector:#'nextLittleEndianNumber:from:'
+            inCategory:mthd category
+            notifying:nil
+            install:true
+            skipIfSame:false
+            silent:true.
 
-    val := self nextLittleEndianNumber:4 from:#[1 2 3 4].
-    self assert:(val = 16r04030201).
-    val := self nextLittleEndianNumber:8 from:#[1 2 3 4 5 6 7 8].
-    self assert:(val = 16r0807060504030201).
+        val := self nextLittleEndianNumber:4 from:#[1 2 3 4].
+        self assert:(val = 16r04030201).
+        val := self nextLittleEndianNumber:8 from:#[1 2 3 4 5 6 7 8].
+        self assert:(val = 16r0807060504030201).
+    ].
 
     "
      self run:#test01_bitor_bug