--- a/TestCase.st	Sun Jun 28 03:54:49 2015 +0000
+++ b/TestCase.st	Thu Jan 14 15:57:27 2016 +0100
@@ -384,9 +384,17 @@
      These classes can be instrumented for coverage analysis,
      before running the suite to provide coverage analysis/report"
 
-    self coveredPackageNames notNil ifTrue:[
-        ^ self coveredPackageNames 
-                    collectAll:[:eachPackage | Smalltalk allClassesInPackage:eachPackage].
+    |names|
+    
+    (names := self coveredPackageNames) notEmptyOrNil ifTrue:[
+        ^ names 
+            collectAll:[:eachPackageOrPattern |
+                eachPackageOrPattern includesMatchCharacters ifTrue:[
+                    Smalltalk allClassesForWhich:[:cls | (cls package ?'') matches:eachPackageOrPattern].
+                ] ifFalse:[    
+                    Smalltalk allClassesInPackage:eachPackageOrPattern
+                ]
+        ].
     ].
     ^ self coveredClassNames collect:[:each | Smalltalk classNamed:each]
 !
@@ -977,15 +985,15 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.109 2015-02-26 04:01:33 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.109 2015-02-26 04:01:33 cg Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '$Id: TestCase.st,v 1.109 2015-02-26 04:01:33 cg Exp $'
+    ^ '$Id$'
 ! !