A new version of Monticello was added to project The Inbox:
http://source.squeak.org/inbox/Monticello-cmm.568.mcz

==================== Summary ====================

Name: Monticello-cmm.568
Author: cmm
Time: 7 September 2013, 11:23:41.529 am
UUID: 575ad6a3-2df6-4ae5-99a8-24c15f032558
Ancestors: Monticello-cmm.567

- Adopt two more methods needed for browsing MC history.

=============== Diff against Monticello-cmm.567 ===============

Item was added:
+ ----- Method: Class>>packageInfo (in category '*monticello') -----
+ packageInfo
+ 	^ PackageInfo allPackages
+ 		detect: [ : each | each includesClass: self ]
+ 		ifNone: [ nil ]!

Item was changed:
  ----- Method: MCHttpRepository>>httpGet:for: (in category 'private') -----
  httpGet: actionString for: aMCDefinition
- self halt.
  	^ HTTPSocket
  		httpGet: self locationWithTrailingSlash
  		args: 
  			{ 'action'->{actionString}.
  			'mc-definition'-> {self serializeForRequest: aMCDefinition}}
  		user: self user
  		passwd: self password!

Item was added:
+ ----- Method: MethodReference>>packageInfo (in category '*monticello') -----
+ packageInfo
+ 	"Answer the PackageInfo containing this method."
+ 	| methodCategory classCategory |
+ 	methodCategory := self category.
+ 	classCategory := methodCategory first = $* ifFalse: [ self actualClass theNonMetaClass category ].
+ 	^ PackageInfo allPackages 
+ 		detect: 
+ 			[ : each | 
+ 			"detect: [ : each | each methods includes: self ]" "<-- too slow"
+ 			(each isYourClassExtension: methodCategory) or: 
+ 				[ classCategory notNil and: [ each systemCategories includes: classCategory ] ] ]
+ 		ifFound: [ : foundPackage | PackageInfo named: foundPackage packageName ]
+ 		ifNone: [ nil ]!