--- a/RegressionTests__ClassAndMethodCompilingTestCase.st	Wed Jun 29 13:00:17 2016 +0000
+++ b/RegressionTests__ClassAndMethodCompilingTestCase.st	Wed Jun 29 15:55:29 2016 +0200
@@ -1,6 +1,6 @@
 "{ Encoding: utf8 }"
 
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
 
@@ -20,7 +20,7 @@
     the test.
 
     [author:]
-        Jan Vrany <jan.vrany@fit.cvut.cz>
+	Jan Vrany <jan.vrany@fit.cvut.cz>
 
     [instance variables:]
 
@@ -45,8 +45,8 @@
 
 update: aspect with: param from: sender
     aspect == #newClass ifTrue:[
-        "remember the classes to be deleted on #tearDown"
-        classes add: param.
+	"remember the classes to be deleted on #tearDown"
+	classes add: param.
     ].
 
     "Created: / 20-11-2012 / 14:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -66,19 +66,19 @@
 
     Smalltalk removeDependent: self.
     removeBlock := [:cls|
-        | name realcls |
+	| name realcls |
 
-        name := cls name.
-        (name startsWith: 'Mock') ifFalse:[
-            "/ Just to make sure no system class is removed, all test classes should 
-            "/ begin with 'Mock'.
-            self breakPoint:#jv.  
-            self breakPoint:#cg.
-        ].
-        realcls := Smalltalk at: name.
-        realcls notNil ifTrue:[
-            Smalltalk removeClass: realcls.
-        ].
+	name := cls name.
+	(name startsWith: 'Mock') ifFalse:[
+	    "/ Just to make sure no system class is removed, all test classes should
+	    "/ begin with 'Mock'.
+	    self breakPoint:#jv.
+	    self breakPoint:#cg.
+	].
+	realcls := Smalltalk at: name.
+	realcls notNil ifTrue:[
+	    Smalltalk removeClass: realcls.
+	].
     ].
     classes select:[:each| each isPrivate] thenDo:removeBlock.
     classes select:[:each| each isNameSpace not and:[each isPrivate not]] thenDo:removeBlock.