Chris Muller uploaded a new version of SystemReporter to project The Trunk:
http://source.squeak.org/trunk/SystemReporter-cmm.19.mcz

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

Name: SystemReporter-cmm.19
Author: cmm
Time: 2 February 2012, 11:16:52.731 pm
UUID: 6d7357ee-74c3-4003-bb37-8598bf8ae096
Ancestors: SystemReporter-laza.18

Report Failed Tests and Errors as a list of debuggable expressions.

=============== Diff against SystemReporter-laza.18 ===============

Item was added:
+ ----- Method: SystemReporter>>printDebugExpressionFor:on: (in category 'private') -----
+ printDebugExpressionFor: methodSignature on: aStream 
+ 	| compiledMethod |
+ 	compiledMethod := Compiler evaluate: methodSignature.
+ 	aStream
+ 		 nextPut: $( ;
+ 		 nextPutAll: compiledMethod methodClass name ;
+ 		 nextPutAll: ' selector: #' ;
+ 		 nextPutAll: compiledMethod selector ;
+ 		 nextPutAll: ') debug.'!

Item was changed:
  ----- Method: SystemReporter>>reportTestRunner: (in category 'reporting') -----
+ reportTestRunner: aStream 
+ 	testRunner ifNil:
+ 		[ | runAllTests |
- reportTestRunner: aStream
- 	testRunner ifNil: [| runAllTests |
  		runAllTests := UIManager confirm: 'Running all Tests\will take long time' withCRs.
  		runAllTests
+ 			ifTrue: [ testRunner := TestRunner new runAll ]
+ 			ifFalse:
+ 				[ categoriesSelected remove: #SUnit.
+ 				^ self changed: #categorySelected ] ].
+ 	self
+ 		header: 'SUnit Results'
+ 		on: aStream.
+ 	aStream nextPutAll: testRunner statusText ; cr ; cr.
+ 	self
+ 		header: 'Failed Tests'
+ 		on: aStream.
+ 	testRunner failedList do:
+ 		[ : each | self
+ 			printDebugExpressionFor: each
+ 			on: aStream.
+ 		aStream cr ].
- 			ifTrue: [testRunner := TestRunner new runAll]
- 			ifFalse: [
- 				categoriesSelected remove: #SUnit. 
- 				^self changed: #categorySelected]].
- 	self header: 'SUnit Results' on: aStream.
- 	aStream nextPutAll: testRunner statusText; cr; cr.
- 	self header: 'Failed Tests' on: aStream.
- 	testRunner failedList do: [:each | aStream nextPutAll: each; cr].
  	aStream cr.
+ 	self
+ 		header: 'Errors'
+ 		on: aStream.
+ 	testRunner errorList do:
+ 		[ : each | self
+ 			printDebugExpressionFor: each
+ 			on: aStream.
+ 		aStream cr ]!
- 	self header: 'Errors' on: aStream.
- 	testRunner errorList do: [:each | aStream nextPutAll: each; cr]
- !