--- a/ChangeSet.st	Wed Oct 25 17:41:56 2006 +0200
+++ b/ChangeSet.st	Wed Oct 25 18:09:08 2006 +0200
@@ -1081,6 +1081,18 @@
         ]
     ].
     ^ false
+!
+
+includesChangeForPackage:aPackageID
+    ^ self changedPackages includes:aPackageID
+
+"/    ^ self contains:[:aChange | aChange package = aPackageID]
+
+    "
+     ChangeSet current includesChangeForPackage:'stx:libbasic'
+    "
+
+    "Created: / 25-10-2006 / 18:06:55 / cg"
 ! !
 
 !ChangeSet methodsFor:'utilities'!
@@ -2266,5 +2278,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.144 2006-10-25 11:13:56 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.145 2006-10-25 16:09:08 cg Exp $'
 ! !