'From Pharo1.4a of ''16 June 2011'' [Latest update: #14375] on 5 March 2012 at 2:28:33 pm'! !MCVersionLoader methodsFor: 'checking' stamp: 'md 3/5/2012 14:28'! checkForModificationsIfCancel: cancelBlock ifMerge: mergeBlock | modifications | "first check if there are local packages which are dirty" modifications := self localModifications. modifications isEmpty ifTrue: [ ^ self]. "ask the user what to do.. merge | overwrite | abort" ^ self warnAboutLosingChangesTo: modifications ifCancel: cancelBlock ifMerge: mergeBlock! !