Bert Freudenberg uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-bf.562.mcz

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

Name: Monticello-bf.562
Author: bf
Time: 20 August 2013, 2:02:41.71 pm
UUID: beda0a3b-0217-4842-a1d0-10dd5f7277d1
Ancestors: Monticello-cmm.561

Add a utility method to check all packages for modifications, setting or resetting the 'modified' flag by comparing the image to the stored version.
MCWorkingCopy checkModified: true

=============== Diff against Monticello-cmm.561 ===============

Item was added:
+ ----- Method: MCWorkingCopy class>>checkModified: (in category 'as yet unclassified') -----
+ checkModified: thorough
+ 	"Verify that all working copies with a modified flag are really modified, by comparing them to their stored snapshot. If the 'thorough' argument is true, check all packages, even unmodified ones."
+ 	"MCWorkingCopy checkModified: true"
+ 	| workingCopies |
+ 	workingCopies := self allManagers.
+ 	thorough ifFalse: [
+ 		workingCopies := workingCopies select: [:wc | wc modified]].
+ 	workingCopies do: [:wc | wc checkModified]
+ 		displayingProgress: 'Checking package changes ...' translated.
+ !

Item was added:
+ ----- Method: MCWorkingCopy>>checkModified (in category 'operations') -----
+ checkModified
+ 	self ancestors size = 1
+ 		ifFalse: [
+ 			self modified: true]
+ 		ifTrue: [
+ 			| cleanSnapshot currentSnapshot modification |
+ 			cleanSnapshot := self findSnapshotWithVersionInfo: self ancestors first.
+ 			currentSnapshot := self package snapshot.
+ 			modification := currentSnapshot patchRelativeToBase: cleanSnapshot.
+ 			self modified: modification isEmpty not].
+ !