--- a/MetricsReporter.st	Wed Mar 23 21:55:41 2016 +0100
+++ b/MetricsReporter.st	Thu Mar 24 00:02:38 2016 +0100
@@ -332,6 +332,8 @@
 !
 
 reportXml_metrics
+    "invoked via perform, if the formatSymbol is #xml_metrics"
+    
     "
         self new
             stream:Transcript;
@@ -342,6 +344,16 @@
     "/ need the exept-metrics package
     Smalltalk loadPackage:'exept:programming/oom'.
 
+    packages do:[:eachPackageID |
+        "/ if the package is a matchPattern, generate metrics for all loaded packages
+        "/ which match that pattern.
+        "/ Otherwise, make sure that this package is loaded and generate metrics for that
+        "/ one only.
+        eachPackageID includesMatchCharacters ifFalse:[
+            Smalltalk loadPackage:eachPackageID.
+        ].
+    ].
+
     stream nextPutLine: '<?xml version="1.0"?>';
            nextPutLine: '<metrics>'.
 
@@ -350,9 +362,6 @@
         "/ which match that pattern.
         "/ Otherwise, make sure that this package is loaded and generate metrics for that
         "/ one only.
-        eachPackageID includesMatchCharacters ifFalse:[
-            Smalltalk loadPackage:eachPackageID.
-        ].
         self reportXml_metricsForPackage:eachPackageID
     ].
     stream nextPutLine: '</metrics>'.