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

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

Name: SMLoader-ul.83
Author: ul
Time: 14 August 2015, 7:02:58.782 pm
UUID: 4898c13c-15f3-4ed8-867a-df8d79905124
Ancestors: SMLoader-mt.82

#includesSubString: -> #includesSubstring:

=============== Diff against SMLoader-mt.82 ===============

Item was changed:
  ----- Method: SMLoader class>>initialize (in category 'class initialization') -----
  initialize
  	"Hook us up in the world menu."
  	"self initialize"
  	Smalltalk
  		at: #ToolBuilder
  		ifAbsent: [self registerInFlapsRegistry.
  			(Preferences windowColorFor: #SMLoader) = Color white
  				ifTrue: ["not set"
  					Preferences
  						setWindowColorFor: #SMLoader
  						to: (Color colorFrom: self windowColorSpecification brightColor)].
  			(TheWorldMenu respondsTo: #registerOpenCommand:)
  				ifTrue: [| oldCmds |
+ 					oldCmds := TheWorldMenu registry select: [:cmd | cmd first includesSubstring: 'Package Loader'].
- 					oldCmds := TheWorldMenu registry select: [:cmd | cmd first includesSubString: 'Package Loader'].
  					oldCmds do: [:cmd | TheWorldMenu unregisterOpenCommand: cmd first].
  					TheWorldMenu registerOpenCommand: {self openMenuString. {self. #open}}]].
  	DefaultFilters := OrderedCollection new.
  	DefaultCategoriesToFilterIds := OrderedCollection new!

Item was changed:
  ----- Method: SMLoaderPlus class>>initialize (in category 'class initialization') -----
  initialize
  	"Hook us up in the world menu."
  	"self initialize"
  	Smalltalk
  		at: #ToolBuilder
  		ifPresent:
  			[ : tb | self registerInFlapsRegistry.
  			(Preferences windowColorFor: #SMLoader) = Color white "note set" ifTrue:
  				[
  				#(#SMLoader #SMReleaseBrowser ) do:
  					[ : each |
  					Preferences
  						setWindowColorFor: each
  						to: (Color colorFrom: self windowColorSpecification brightColor) ] ].
  			(TheWorldMenu respondsTo: #registerOpenCommand:) ifTrue:
  				[ | oldCmds |
  				oldCmds := TheWorldMenu registry select:
+ 					[ : cmd | cmd first includesSubstring: 'Package Loader' ].
- 					[ : cmd | cmd first includesSubString: 'Package Loader' ].
  				oldCmds do:
  					[ : cmd | TheWorldMenu unregisterOpenCommand: cmd first ].
  				TheWorldMenu registerOpenCommand: {self openMenuString. 
  					{self. 
  					#open}} ] ].
  	DefaultFilters := OrderedCollection new.
  	DefaultCategoriesToFilterIds := OrderedCollection new!