--- a/reports/Builder__TestReport.st	Fri Jan 13 13:48:04 2012 +0100
+++ b/reports/Builder__TestReport.st	Fri Jan 13 14:01:28 2012 +0100
@@ -88,11 +88,9 @@
     packages do: [:pkg | 
         |def |
 
+        self loadPackageIfNotAlready: pkg.
         def := ProjectDefinition definitionClassForPackage:pkg.
-        def isNil ifTrue:[ 
-            Smalltalk loadPackage:pkg asSymbol.
-            def := ProjectDefinition definitionClassForPackage:pkg. 
-        ].
+
         (def respondsTo:#testSuite) ifTrue:[ 
             suite addTest:def testSuite 
         ] ifFalse:[ 
@@ -116,7 +114,7 @@
         ]
     ].
 
-    "Modified: / 07-11-2011 / 09:43:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-01-2012 / 13:00:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 setupForSuite: suite