--- a/reports/Builder__CoverageReport.st	Fri Jun 28 03:54:52 2013 +0200
+++ b/reports/Builder__CoverageReport.st	Fri Jun 28 12:31:26 2013 +0200
@@ -160,17 +160,20 @@
 
     pkgdef := ProjectDefinition definitionClassForPackage: aMethod package.
     pkgdef notNil ifTrue:[
-        pkgdef excludedFromCoverage do:[:spec|
+        "/ Use perform: because eXept HEAD does not have excludedFromCoverage...
+        (pkgdef perform:#excludedFromCoverage ifNotUnderstood:[#()]) do:[:spec|
             spec isArray ifTrue:[
                 (spec first = mclass name and:[spec second == mselector]) ifTrue:[ ^ true ].
             ].
             spec = mclass name ifTrue:[ ^ true ].                
         ].
-        (pkgdef excludedFromCoverage: aMethod) ifTrue:[ ^ true ].
+        "/ Use perform: because eXept HEAD does not have excludedFromCoverage:...
+        (pkgdef perform:#excludedFromCoverage: with: aMethod ifNotUnderstood:[false]) ifTrue:[ ^ true ].
     ].
     ^false
 
     "Created: / 28-06-2013 / 02:20:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 28-06-2013 / 11:31:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CoverageReport methodsFor:'running'!