--- a/quickSelfTest/RunUnitTests.st	Tue Sep 19 10:17:02 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st	Thu Sep 21 14:34:44 2017 +0200
@@ -65,21 +65,21 @@
 		firstIfEmpty:nil.
 	].
 
-	(corruptedUnitTestClassNames includes:eachClassName) ifTrue:[
-	    self
-		logWarning:('corrupted unit test class detected, please fix #%1'
-		    bindWith:eachClassName).
-	] ifFalse:[
-	    (excludedUnitTestClassNames includes:eachClassName) ifFalse:[
-		eachClassName notNil ifTrue:[
-		    eachClass := Smalltalk
-			fileInClass:eachClassName
-			package:'stx:goodies/regression'.
+	(excludedUnitTestClassNames includes:eachClassName) ifFalse:[
+	    (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[
+	        self
+		    logWarning:('corrupted unit test class detected, please fix #%1'
+		        bindWith:eachClassName).
+	    ] ifFalse:[
+			eachClassName notNil ifTrue:[
+				eachClass := Smalltalk
+					fileInClass:eachClassName
+					package:'stx:goodies/regression'.
 
-		    eachClass notNil ifTrue:[
-			eachClass isTestCaseLike ifTrue:[
-			    unitTestSuite addTest:eachClass suite.
-			].
+				eachClass notNil ifTrue:[
+				eachClass isTestCaseLike ifTrue:[
+					unitTestSuite addTest:eachClass suite.
+				].
 		    ].
 		].
 	    ].
@@ -117,6 +117,7 @@
 	#'RegressionTests::ExternalInterfaceTests'
 	#'RegressionTests::HTTPServerTests'
 	#'RegressionTests::DebuggerTest'
+	#'RegressionTests::ContextTest2'
     )
 !
 
@@ -139,6 +140,10 @@
 	    #'RegressionTests::SnapshotRestartTests'
 	    #'RegressionTests::GraphicDrawingTest'
 	    #'RegressionTests::OS_OLE_Tests'
+		#'RegressionTests::ExternalInterfaceTests'
+		#'RegressionTests::HTTPServerTests'
+		#'RegressionTests::DebuggerTest'
+		#'RegressionTests::ContextTest2'
 	)
 ! !