--- a/quickSelfTest/RunUnitTests.st	Thu Oct 12 13:58:23 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st	Thu Oct 12 14:36:42 2017 +0200
@@ -196,17 +196,6 @@
     self logInfo:('%1 passed' bindWith:result passedCount).
     self logInfo:('%1 failed' bindWith:result failureCount).
     self logInfo:('%1 errors' bindWith:result errorCount).
-
-    "
-        Processor activeProcess exceptionHandlerSet
-            on:Class updateChangeFileQuerySignal
-            do:[:ex | ex proceedWith:false].
-
-        self
-            runWithCompiledUnitTestClasses:true
-            arguments:#('--runOnlyExpeccoUnitTests')
-            debug:true
-    "
 ! !
 
 !RunUnitTests class methodsFor:'constants'!
@@ -252,6 +241,23 @@
 	)
 ! !
 
+!RunUnitTests class methodsFor:'examples'!
+
+example1
+    Processor activeProcess exceptionHandlerSet
+        on:Class updateChangeFileQuerySignal
+        do:[:ex | ex proceedWith:false].
+
+    self
+        runWithCompiledUnitTestClasses:true
+        arguments:#(
+            '--runOnlyExpeccoUnitTests' 
+"/                '--forceTestCase' 
+"/                'CompilerTest'
+        )
+        debug:true
+! !
+
 !RunUnitTests class methodsFor:'logging'!
 
 log:aString