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

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

Name: SMLoader-cmm.81
Author: cmm
Time: 1 April 2015, 3:04:04.314 pm
UUID: 5b84720e-18e5-4254-88b5-b58ad5abaa46
Ancestors: SMLoader-bf.80

- Fix selection rendering in SqueakMap.

=============== Diff against SMLoader-bf.80 ===============

Item was removed:
- ----- Method: FileList2 class>>morphicView (in category '*smloader-override') -----
- morphicView
- 	^ self morphicViewOnDirectory: FileDirectory default!

Item was changed:
  ----- Method: SMLoaderPlus>>selectedCategory: (in category 'accessing') -----
  selectedCategory: anSMCategory 
  	"Change the selected category."
  	selectedCategory := anSMCategory.
+ 	selectedCategory ifNotNil:
+ 		[ (selectedCategory objects includes: self selectedItem) ifFalse: [ self selectedItem: nil ] ].
+ 	self
+ 		 changed: #selectedCategoryPath ;
+ 		 changed: #packageList!
- 	selectedCategory
- 		ifNotNil: [(selectedCategory objects includes: self selectedItem)
- 			ifFalse: [self selectedItem: nil]].
- 	self changed: #selectedCategory.
- 	self changed: #packageList!

Item was changed:
  ----- Method: SMLoaderPlus>>selectedCategoryPath (in category 'accessing') -----
  selectedCategoryPath
  	"Return selected category's path."
  	| path |
  	path := #().
  	selectedCategory
  		ifNotNil: [selectedCategory parent
  				ifNotNilDo: [:p | path := path copyWith: p].
  			path := path copyWith: selectedCategory].
+ 	^ path!
- 	^ path
- 		collect: [:cat | self categoryLabel: cat]!