--- a/quickSelfTest/RunUnitTests.st	Thu Oct 12 13:22:28 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st	Thu Oct 12 13:58:23 2017 +0200
@@ -53,7 +53,7 @@
     |doRunSpecificUnitTests unitTestSuiteName excludedUnitTestClassNames corruptedUnitTestClassNames
      cmdArgs
      unitTestSuite
-     eachClassName eachClass
+     eachClass
      result index
      settingsFilePathName resultFilePathName forceTestCase|
 
@@ -73,7 +73,6 @@
         Smalltalk exit.
     ].
 
-
     index := cmdArgs indexOf:'--settingsFile'.
     index > 0 ifTrue:[
         settingsFilePathName := cmdArgs at:index + 1.
@@ -108,14 +107,7 @@
     self logInfo:'collecting unit test classes to run'.
     unitTestSuite := TestSuite named:unitTestSuiteName.
 
-    (Smalltalk at: #'stx_goodies_regression') classNamesAndAttributes do:[:eachClassNameAndAttributes |
-        eachClassNameAndAttributes isSymbol ifTrue:[
-            eachClassName := eachClassNameAndAttributes.
-        ] ifFalse:[
-            eachClassName := eachClassNameAndAttributes
-                firstIfEmpty:nil.
-        ].
-
+    (Smalltalk at: #'stx_goodies_regression') classNames do:[:eachClassName |
         (excludedUnitTestClassNames includes:eachClassName) ifTrue:[
             self
                 logInfo:('excluded unit test class "%1".'
@@ -156,12 +148,17 @@
                     ].
 
                     eachClass notNil ifTrue:[
-                        eachClass isTestCaseLike ifTrue:[
+                        (eachClass isTestCaseLike
+                        and:[eachClass isAbstract not]) ifTrue:[
                             self
                                 logInfo:('added unit test class "%1".'
                                     bindWith:eachClassName).
 
                             unitTestSuite addTest:eachClass suite.
+                        ] ifFalse:[
+                            self
+                                logInfo:('not a unit test class "%1" (class is abstract or something else).'
+                                    bindWith:eachClassName).
                         ].
                     ] ifFalse:[
                         self
@@ -201,6 +198,10 @@
     self logInfo:('%1 errors' bindWith:result errorCount).
 
     "
+        Processor activeProcess exceptionHandlerSet
+            on:Class updateChangeFileQuerySignal
+            do:[:ex | ex proceedWith:false].
+
         self
             runWithCompiledUnitTestClasses:true
             arguments:#('--runOnlyExpeccoUnitTests')