--- a/reports/Builder__TestReport.st	Sat Jun 30 22:34:17 2012 +0200
+++ b/reports/Builder__TestReport.st	Mon Jul 02 23:32:13 2012 +0200
@@ -65,10 +65,11 @@
 !
 
 setupForClasses:classes
+    "Setup the report to run given classes"
 
-    | suite |
+    | suiteFromClasses |
 
-    suite := TestSuite named:name.
+    suiteFromClasses := TestSuite named:name.
     classes do:
             [:cls | 
             |tc|
@@ -76,9 +77,9 @@
             cls isTestCaseLike 
                 ifTrue:
                     [ tc := cls asTestCase.
-                    tc isAbstract ifFalse:[ suite addTest:tc suite ] ] ].
+                    tc isAbstract ifFalse:[ suiteFromClasses addTest:tc suite ] ] ].
 
-    self setupForSuite: suite.
+    self setupForSuite: suiteFromClasses.
 
     "Created: / 04-08-2011 / 14:34:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -117,9 +118,9 @@
     "Modified: / 13-01-2012 / 13:00:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-setupForSuite: suite
+setupForSuite: suiteToAdd
 
-    suite addTest: suite.
+    suite addTest: suiteToAdd.
 
     "Created: / 06-11-2011 / 18:27:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !