--- a/RegressionTests__ClassAndMethodCompilingTestCase.st	Wed Jun 24 14:58:17 2015 +0200
+++ b/RegressionTests__ClassAndMethodCompilingTestCase.st	Wed Jul 15 11:59:02 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'exept:regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -63,18 +65,20 @@
     | ns |
 
     Smalltalk removeDependent: self.
-    classes do:[:cls|
+    classes select:[:eachClass| eachClass isNameSpace not] thenDo:[:cls|
         | name realcls |
 
         name := cls name.
         (name startsWith: 'Mock') ifFalse:[
-            "/ Just to make sure no system class is remove, all test classes should 
+            "/ 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.
-        Smalltalk removeClass: realcls.
+        realcls notNil ifTrue:[
+            Smalltalk removeClass: realcls.
+        ].
     ].
 
     #(Mocks Mocks2 Mocks3) do:[:nsName|