--- a/RegressionTests__ChangeSetTests.st	Tue Jun 24 16:53:44 2014 +0200
+++ b/RegressionTests__ChangeSetTests.st	Tue Jun 24 17:44:06 2014 +0200
@@ -41,8 +41,8 @@
 test_saveToStream_format_nil_01
     | cs output chunks |
 
-    cs := ChangeSet forExistingClass: ChangeSetTests.
-    cs := cs select:[:each | each isMethodChange and:[ each selector = #setUp ]].
+    cs := ChangeSet forExistingClass: self class.
+    cs := cs select:[:each | each isMethodChange and:[ each selector = testSelector ]].
     output := (String streamContents:[ :s | cs saveToStream: s  format: nil ]) readStream.
     chunks := OrderedCollection streamContents:[ :s |
         [ output atEnd ] whileFalse:[ 
@@ -54,13 +54,13 @@
 
     self assert: (chunks at: 1) = ('"{ NameSpace: RegressionTests }"', Character cr, Character cr).
     self assert: (chunks at: 2) = ''.
-    self assert: (chunks at: 3) = 'ChangeSetTests methodsFor: ''running'''.
-    self assert: (chunks at: 4) = (self class compiledMethodAt: #setUp) source.
+    self assert: (chunks at: 3) = ('ChangeSetTests methodsFor: ''%1''' bindWith: (self class compiledMethodAt: testSelector) category).
+    self assert: (chunks at: 4) = (self class compiledMethodAt: testSelector) source.
     self assert: (chunks at: 5) = ''.
     self assert: (chunks at: 6) = ''.
 
     "Created: / 04-02-2014 / 11:51:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 06-03-2014 / 12:46:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-06-2014 / 16:42:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_saveToStream_format_nil_02