Tobias Pape uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-topa.799.mcz

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

Name: Tools-topa.799
Author: topa
Time: 7 March 2018, 10:49:48.272623 pm
UUID: e81a8f85-40fe-4345-8ce5-24bbe57f6fef
Ancestors: Tools-tpr.798

Slight improvement to tim's improvement

=============== Diff against Tools-tpr.798 ===============

Item was changed:
  ----- Method: ChangeSorter>>fileIntoNewChangeSet (in category 'changeSet menu') -----
  fileIntoNewChangeSet
  	"Obtain a file designation from the user, and file its contents into a  
  	new change set whose name is a function of the filename. Show the  
  	new set and leave the current changeSet unaltered."
- 	| aNewChangeSet stream fileName |
  	self okToChange
  		ifFalse: [^ self].
  	ChangeSet promptForDefaultChangeSetDirectoryIfNecessary.
- 	fileName := (FileChooserDialog openOn: ChangeSet defaultChangeSetDirectory) ifNil: [^nil].
- 	stream := FileStream oldFileNamed: fileName.
- 	stream ifNil: [^ self].
  	
+ 	(FileChooserDialog openOn: ChangeSet defaultChangeSetDirectory) ifNotNil: 
+ 		[:fileName | 	
+ 		FileStream oldFileNamed: fileName do: 
+ 			[:stream | | localName |
+ 			localName := FileDirectory localNameFor: fileName.
+ 			(self class newChangesFromStream: stream named: localName)
+ 				ifNotNil: [:aNewChangeSet | self showChangeSet: aNewChangeSet]]].!
- 	aNewChangeSet := self class
- 				newChangesFromStream: stream
- 				named: (FileDirectory localNameFor:fileName).
- 	aNewChangeSet
- 		ifNotNil: [self showChangeSet: aNewChangeSet]!

Item was changed:
  ----- Method: FileList class>>openFileDirectly (in category 'instance creation') -----
  openFileDirectly
  
+ 	(FileChooserDialog openOn: FileDirectory default) ifNotNil:
+ 		[:fileName | self openEditorOn: (FileStream readOnlyFileNamed: fileName) editString: nil]!
- 	| fileName |
- 	(fileName :=FileChooserDialog openOn: FileDirectory default) ifNotNil:
- 		[self openEditorOn: (FileStream readOnlyFileNamed: fileName) editString: nil]!