Levente Uzonyi uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ul.171.mcz

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

Name: Tests-ul.171
Author: ul
Time: 29 September 2012, 9:48:51.438 am
UUID: 647a45be-83ba-5d49-8ad6-198909ed5b70
Ancestors: Tests-dtl.170

Keep the timestamp of methods in PCCByCompilation>>privateDisableCallIn: and PCCByCompilation>>privateEnableCallIn:.

=============== Diff against Tests-dtl.170 ===============

Item was changed:
  ----- Method: PCCByCompilation>>privateDisableCallIn: (in category 'private user interface') -----
  privateDisableCallIn: aMethodRef 
  	"Disables enabled or failed external prim call by recompiling method 
  	with prim call commented out, will be called by superclass."
  	| src newMethodSource |
  	"higher priority to avoid source file accessing errors"
  	src := [aMethodRef sourceString]
  		valueAt: self higherPriority.
  	newMethodSource := self enabled2DisabledPrimMethodString: src.
  	"higher priority to avoid source file accessing errors"
  	[aMethodRef actualClass
  		compile: newMethodSource
  		classified: (aMethodRef actualClass whichCategoryIncludesSelector: aMethodRef methodSymbol)
+ 		withStamp: aMethodRef timeStamp
  		notifying: nil]
  		valueAt: self higherPriority!

Item was changed:
  ----- Method: PCCByCompilation>>privateEnableCallIn: (in category 'private user interface') -----
  privateEnableCallIn: aMethodRef 
  	"Enables disabled external prim call by recompiling method with prim  
  	call taken from disabling comment, will be called by superclass."
  	| src newMethodSource |
  	"higher priority to avoid source file accessing errors"
  	src := [aMethodRef sourceString]
  		valueAt: self higherPriority.
  	newMethodSource := self disabled2EnabledPrimMethodString: src.
  	"higher priority to avoid source file accessing errors"
  	[aMethodRef actualClass
  		compile: newMethodSource
  		classified: (aMethodRef actualClass whichCategoryIncludesSelector: aMethodRef methodSymbol)
+ 		withStamp: aMethodRef timeStamp
  		notifying: nil]
  		valueAt: self higherPriority!