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

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

Name: Tools-cmm.695
Author: cmm
Time: 27 April 2016, 1:28:48.62735 pm
UUID: 526018d5-a5c7-48a5-832b-aedc6a3ffd1d
Ancestors: Tools-cmm.694, Tools-bf.694

Merge cmm.694.

=============== Diff against Tools-cmm.694 ===============

Item was changed:
  ----- Method: Workspace>>acceptDroppingMorph:event:inMorph: (in category 'drag and drop') -----
  acceptDroppingMorph: dropee event: evt inMorph: targetMorph 
  	"Return the dropee to its old position, and add a reference to it at the
  	cursor point."
  	| bindingName externalName reference |
  	(dropee isKindOf: TransferMorph)
  		ifTrue: [reference := dropee passenger.
  			externalName := dropee passenger className]
  		ifFalse: [reference := dropee.
  			dropee externalName].
  	externalName := externalName isOctetString
  				ifTrue: [externalName]
  				ifFalse: ['a' , externalName].
  	bindingName := externalName withFirstCharacterDownshifted , reference identityHash printString.
  	targetMorph correctSelectionWithString: bindingName , ' '.
  	(self bindingOf: bindingName)
  		value: reference.
+ 	(dropee isKindOf: TransferMorph)
+ 		ifFalse: [dropee rejectDropMorphEvent: evt].
- 	dropee rejectDropMorphEvent: evt.
  	^ true"success"!

Item was changed:
  ----- Method: Workspace>>wantsDroppedMorph:event:inMorph: (in category 'drag and drop') -----
  wantsDroppedMorph: dropee event: evt inMorph: target
  
+ 	^ acceptDroppedMorphs or: [dropee isKindOf: TransferMorph]
- 	^ acceptDroppedMorphs
  		
  !