--- a/InstrumentingCompiler.st	Wed Oct 24 20:46:54 2012 +0200
+++ b/InstrumentingCompiler.st	Fri Oct 26 11:48:52 2012 +0200
@@ -100,7 +100,7 @@
 compileClass:aClass
     "compile all methods of aClass with instrumentation"
 
-    aClass methodsDo:[:eachMethod |
+    aClass instAndClassMethodsDo:[:eachMethod |
         self compileMethod:eachMethod
     ].
 !
@@ -112,6 +112,19 @@
         compile:(aMethod source)
         forClass:(aMethod mclass) 
         inCategory:(aMethod category)
+!
+
+compilePackage:aPackageID
+    "compile all classes of a package instrumentation"
+
+    Smalltalk allClassesInPackage:aPackageID do:[:eachClass |
+        self compileClass:eachClass
+    ].
+
+    "
+     InstrumentingCompiler compilePackage:'exept:workflow'.
+     InstrumentingCompiler compilePackage:'exept:expecco'.
+    "
 ! !
 
 !InstrumentingCompiler class methodsFor:'special'!
@@ -895,9 +908,9 @@
 !InstrumentingCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.23 2012-10-20 19:17:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.24 2012-10-26 09:48:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.23 2012-10-20 19:17:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.24 2012-10-26 09:48:52 cg Exp $'
 ! !