--- a/AbstractSourceCodeManager.st	Fri Aug 19 01:21:15 2011 +0200
+++ b/AbstractSourceCodeManager.st	Fri Aug 19 01:50:18 2011 +0200
@@ -3026,6 +3026,23 @@
     package := something.
 ! !
 
+!AbstractSourceCodeManager::PackageAndManager methodsFor:'comparing'!
+
+= aPackageAndManagerOrNil
+    aPackageAndManagerOrNil isNil ifTrue:[^ false].
+    aPackageAndManagerOrNil package = package ifFalse:[^ false].
+    aPackageAndManagerOrNil managerTypeName = managerTypeName ifFalse:[^ false].
+    ^ true
+
+    "Created: / 19-08-2011 / 01:47:34 / cg"
+!
+
+hash
+    ^ package hash bitXor: managerTypeName hash
+
+    "Created: / 19-08-2011 / 01:47:56 / cg"
+! !
+
 !AbstractSourceCodeManager::PackageAndManager methodsFor:'displaying'!
 
 displayStringForManagerTypeName
@@ -3068,7 +3085,7 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.251 2011-08-18 23:21:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.252 2011-08-18 23:50:18 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!