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

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

Name: System-cmm.612
Author: cmm
Time: 31 October 2013, 8:51:21.011 pm
UUID: 829f7d46-28b2-4141-bfea-929a91e6c001
Ancestors: System-fbs.611

- Stop blowing away RecentMessages every time System is updated.
- Rename Smalltalk #do: nomenclature to #run:, because do: is so heavily associated with enumeration of Collections.
- Refer to stdout and stderr through FileStream instead of StandardFileStream.

=============== Diff against System-fbs.611 ===============

Item was changed:
  (PackageInfo named: 'System') preamble: '"Prepare for removing the recent-message-tracking from Utilities."
+ '!
- SystemChangeNotifier uniqueInstance noMoreNotificationsFor: Utilities.
- RecentMessages startUp.'!

Item was removed:
- ----- Method: SmalltalkImage>>do: (in category 'command line') -----
- do: aBlock
- 	[ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ])
-                 ifTrue: [ aBlock value: self arguments ]
-                 ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ]
- 		on: ProgressInitiationException
- 		do:
- 			[ : pie | "Don't want to log this notification."
- 			pie defaultAction ] ]
- 		on: Notification , Warning
- 		do:
- 			[ : noti | StandardFileStream stdout
- 				 nextPutAll: DateAndTime now asString ;
- 				 space ;
- 				 nextPutAll: noti description ;
- 				 cr.
- 			noti resume ]
- 		on: SyntaxErrorNotification
- 		do:
- 			[ : err | StandardFileStream stdout
- 				 nextPutAll: err errorCode ;
- 				 cr.
- 			self haltOrQuit ]
- 		on: Error
- 		do:
- 			[ : err | err printVerboseOn: StandardFileStream stderr.
- 			self haltOrQuit.
- 			err isResumable ifTrue: [ err resume ] ]!

Item was removed:
- ----- Method: SmalltalkImage>>do:snapshotAs:andQuit: (in category 'command line') -----
- do: aBlock snapshotAs: imageName andQuit: shouldQuit 
- 	self do: aBlock.
- 	imageName
- 		ifNil:
- 			[ shouldQuit ifTrue:
- 				[ self
- 					snapshot: false
- 					andQuit: shouldQuit ] ]
- 		ifNotNil:
- 			[ | correctName |
- 			correctName := (imageName endsWith: '.image')
- 				ifTrue: [ imageName ]
- 				ifFalse: [ imageName , '.image' ].
- 			(FileDirectory default fullNameFor: correctName) = self imageName
- 				ifTrue:
- 					[ self
- 						snapshot: true
- 						andQuit: shouldQuit ]
- 				ifFalse:
- 					[ self saveAs: imageName.
- 					"Avoid instant-quit when relaunching by resaving."
- 					shouldQuit ifTrue:
- 						[ self
- 							snapshot: true
- 							andQuit: shouldQuit ] ] ]!

Item was removed:
- ----- Method: SmalltalkImage>>doAndQuit: (in category 'command line') -----
- doAndQuit: aBlock 
- 	self
- 		do: aBlock
- 		snapshotAs: nil
- 		andQuit: true!

Item was added:
+ ----- Method: SmalltalkImage>>run: (in category 'command line') -----
+ run: aBlock
+ 	[ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ])
+                 ifTrue: [ aBlock value: self arguments ]
+                 ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ]
+ 		on: ProgressInitiationException
+ 		do:
+ 			[ : pie | "Don't want to log this notification."
+ 			pie defaultAction ] ]
+ 		on: Notification , Warning
+ 		do:
+ 			[ : noti | FileStream stdout
+ 				 nextPutAll: DateAndTime now asString ;
+ 				 space ;
+ 				 nextPutAll: noti description ;
+ 				 cr.
+ 			noti resume ]
+ 		on: SyntaxErrorNotification
+ 		do:
+ 			[ : err | FileStream stdout
+ 				 nextPutAll: err errorCode ;
+ 				 cr.
+ 			self haltOrQuit ]
+ 		on: Error
+ 		do:
+ 			[ : err | err printVerboseOn: FileStream stderr.
+ 			self haltOrQuit.
+ 			err isResumable ifTrue: [ err resume ] ]!

Item was added:
+ ----- Method: SmalltalkImage>>run:snapshotAs:andQuit: (in category 'command line') -----
+ run: aBlock snapshotAs: imageName andQuit: shouldQuit 
+ 	self run: aBlock.
+ 	imageName
+ 		ifNil:
+ 			[ shouldQuit ifTrue:
+ 				[ self
+ 					snapshot: false
+ 					andQuit: shouldQuit ] ]
+ 		ifNotNil:
+ 			[ | correctName |
+ 			correctName := (imageName endsWith: '.image')
+ 				ifTrue: [ imageName ]
+ 				ifFalse: [ imageName , '.image' ].
+ 			(FileDirectory default fullNameFor: correctName) = self imageName
+ 				ifTrue:
+ 					[ self
+ 						snapshot: true
+ 						andQuit: shouldQuit ]
+ 				ifFalse:
+ 					[ self saveAs: imageName.
+ 					"Avoid instant-quit when relaunching by resaving."
+ 					shouldQuit ifTrue:
+ 						[ self
+ 							snapshot: true
+ 							andQuit: shouldQuit ] ] ]!

Item was added:
+ ----- Method: SmalltalkImage>>runAndQuit: (in category 'command line') -----
+ runAndQuit: aBlock 
+ 	self
+ 		run: aBlock
+ 		snapshotAs: nil
+ 		andQuit: true!