--- a/quickSelfTest/RunUnitTests.st	Tue Oct 10 16:27:57 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st	Tue Oct 10 17:39:58 2017 +0200
@@ -88,15 +88,22 @@
                         bindWith:eachClassName).
             ] ifFalse:[
                 eachClassName notNil ifTrue:[
-"/ check if loaded 
-                                eachClass := Smalltalk
-                                        fileInClass:eachClassName
-                                        package:'stx:goodies/regression'.
+                    useCompiledUnitTestClasses ifTrue:[
+                        eachClass := Smalltalk at:eachClassName.
+                    ] ifFalse:[
+                        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.
+                        ].
+                    ] ifFalse:[
+                        self
+                            logWarning:('unit test class "%1" is not loaded.'
+                                bindWith:eachClassName).
                     ].
                 ].
             ].