Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.795.mcz

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

Name: Kernel-fbs.795
Author: fbs
Time: 25 July 2013, 8:33:16.497 am
UUID: 733a64b2-fc43-bc40-9114-599b085d9187
Ancestors: Kernel-fbs.794

SmalltalkImage current -> Smalltalk.

=============== Diff against Kernel-fbs.794 ===============

Item was changed:
  SystemOrganization addCategory: #'Kernel-Chronology'!
  SystemOrganization addCategory: #'Kernel-Classes'!
  SystemOrganization addCategory: #'Kernel-Exceptions'!
  SystemOrganization addCategory: #'Kernel-Exceptions-Kernel'!
  SystemOrganization addCategory: #'Kernel-Methods'!
  SystemOrganization addCategory: #'Kernel-Models'!
  SystemOrganization addCategory: #'Kernel-Numbers'!
  SystemOrganization addCategory: #'Kernel-Numbers-Exceptions'!
  SystemOrganization addCategory: #'Kernel-Objects'!
  SystemOrganization addCategory: #'Kernel-Processes'!
  SystemOrganization addCategory: #'Kernel-Processes-Variables'!
- SystemOrganization addCategory: #'Kernel-Methods-Proxies'!

Item was changed:
  ----- Method: BlockClosure>>timeToRunWithoutGC (in category 'evaluating') -----
  timeToRunWithoutGC
  	"Answer the number of milliseconds taken to execute this block without GC time."
  
+ 	^(Smalltalk vmParameterAt: 8) + 
+ 		(Smalltalk vmParameterAt: 10) +
- 	^(SmalltalkImage current vmParameterAt: 8) + 
- 		(SmalltalkImage current vmParameterAt: 10) +
  		self timeToRun -
+ 		(Smalltalk vmParameterAt: 8) - 
+ 		(Smalltalk vmParameterAt: 10)
- 		(SmalltalkImage current vmParameterAt: 8) - 
- 		(SmalltalkImage current vmParameterAt: 10)
  !

Item was changed:
  ----- Method: CompiledMethod>>putSource:fromParseNode:inFile:withPreamble: (in category 'source code management') -----
  putSource: sourceStr fromParseNode: methodNode inFile: fileIndex withPreamble: preambleBlock
  	"Store the source code for the receiver on an external file.
  	If no sources are available, i.e., SourceFile is nil, then store
  	temp names for decompilation at the end of the method.
  	If the fileIndex is 1, print on *.sources;  if it is 2, print on *.changes,
  	in each case, storing a 4-byte source code pointer at the method end."
  
  	| file remoteString |
  	(SourceFiles == nil or: [(file := SourceFiles at: fileIndex) == nil]) ifTrue:
  		[^self become: (self copyWithTempsFromMethodNode: methodNode)].
  
+ 	Smalltalk assureStartupStampLogged.
- 	SmalltalkImage current assureStartupStampLogged.
  	file setToEnd.
  
  	preambleBlock value: file.  "Write the preamble"
  	remoteString := RemoteString newString: sourceStr onFileNumber: fileIndex toFile: file.
  	file nextChunkPut: ' '.
  	InMidstOfFileinNotification signal ifFalse: [file flush].
  	self checkOKToAdd: sourceStr size at: remoteString position.
  	self setSourcePosition: remoteString position inFile: fileIndex!

Item was changed:
  ----- Method: ContextPart>>errorReportOn: (in category 'debugger access') -----
  errorReportOn: strm
  	"Write a detailed error report on the stack (above me) on a stream.  For both the error file, and emailing a bug report.  Suppress any errors while getting printStrings.  Limit the length."
  
  	| cnt aContext startPos |
   	strm print: Date today; space; print: Time now; cr.
  	strm cr.
  	strm nextPutAll: 'VM: ';
+ 		nextPutAll:  Smalltalk platformName asString;
- 		nextPutAll:  SmalltalkImage current platformName asString;
  		nextPutAll: ' - ';
+ 		nextPutAll: Smalltalk asString;
- 		nextPutAll: SmalltalkImage current asString;
  		cr.
  	strm nextPutAll: 'Image: ';
  		nextPutAll:  SystemVersion current version asString;
  		nextPutAll: ' [';
+ 		nextPutAll: Smalltalk lastUpdateString asString;
- 		nextPutAll: SmalltalkImage current lastUpdateString asString;
  		nextPutAll: ']';
  		cr.
  	strm cr.
  	SecurityManager default printStateOn: strm.
  	
  	"Note: The following is an open-coded version of ContextPart>>stackOfSize: since this method may be called during a low space condition and we might run out of space for allocating the full stack."
  	cnt := 0.  startPos := strm position.
  	aContext := self.
  	[aContext notNil and: [(cnt := cnt + 1) < 20]] whileTrue:
  		[aContext printDetails: strm.	"variable values"
  		strm cr.
  		aContext := aContext sender].
  
  	strm cr; nextPutAll: '--- The full stack ---'; cr.
  	aContext := self.
  	cnt := 0.
  	[aContext == nil] whileFalse:
  		[cnt := cnt + 1.
  		cnt = 20 ifTrue: [strm nextPutAll: ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'; cr].
  		strm print: aContext; cr.  "just class>>selector"	
  
  		strm position > (startPos+40000) ifTrue: [strm nextPutAll: '...etc...'.
  			^ self]. 	"exit early"
  		cnt > 60 ifTrue: [strm nextPutAll: '-- and more not shown --'.  ^ self].
  		aContext := aContext sender].
  !