Frank Shearar uploaded a new version of Tools to project The Inbox:
http://source.squeak.org/inbox/Tools-fbs.450.mcz

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

Name: Tools-fbs.450
Author: fbs
Time: 4 March 2013, 10:45:01.19 pm
UUID: 416ef277-60a3-4dea-938f-8de92d1368e2
Ancestors: Tools-fbs.449

Transform callers of Utilities class >> #timeStampForMethod: to callers of CompiledMethod >> #timeStamp.

=============== Diff against Tools-fbs.449 ===============

Item was changed:
  ----- Method: MessageSet>>filterToCurrentAuthor (in category 'filtering') -----
  filterToCurrentAuthor
  	"Filter down only to messages with my initials as most recent author"
  	self filterFrom:
  		[:aClass :aSelector | | aMethod aTimeStamp |
  			(aClass notNil and: [aSelector notNil]) and:			
  				[aMethod := aClass compiledMethodAt: aSelector ifAbsent: [nil].
  				aMethod notNil and:
+ 					[(aTimeStamp := aMethod timeStamp) notNil and:
- 					[(aTimeStamp := Utilities timeStampForMethod: aMethod) notNil and:
  						[aTimeStamp beginsWith: Utilities authorInitials]]]]!

Item was changed:
  ----- Method: MessageSet>>filterToNotCurrentAuthor (in category 'filtering') -----
  filterToNotCurrentAuthor
  	"Filter down only to messages not stamped with my initials"
  	self filterFrom:
  		[:aClass :aSelector | | aTimeStamp aMethod |
  			(aClass notNil and: [aSelector notNil]) and:			
  				[aMethod := aClass compiledMethodAt: aSelector ifAbsent: [nil].
  				aMethod notNil and:
+ 					[(aTimeStamp := aMethod timeStamp) isNil or:
- 					[(aTimeStamp := Utilities timeStampForMethod: aMethod) isNil or:
  						[(aTimeStamp beginsWith: Utilities authorInitials) not]]]]!

Item was changed:
  ----- Method: StringHolder>>timeStamp (in category '*Tools') -----
  timeStamp
  	"Answer the time stamp for the chosen class and method, if any, else an empty string"
  
  	|  selector  aMethod |
  	(selector := self selectedMessageName) ifNotNil:
  		[self selectedClassOrMetaClass 
  			ifNil:
  				[^ String new]
  			ifNotNil:
  				[aMethod := self selectedClassOrMetaClass compiledMethodAt: selector ifAbsent: [nil].
+ 				aMethod ifNotNil: [^ aMethod timeStamp]]].
- 				aMethod ifNotNil: [^ Utilities timeStampForMethod: aMethod]]].
  	^ String new!