Bert Freudenberg uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-bf.694.mcz

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

Name: Tools-bf.694
Author: bf
Time: 20 April 2016, 6:24:57.82409 pm
UUID: b13d8848-e0bb-479f-b9b5-a243e111cea2
Ancestors: Tools-cmm.693

Always accept dropped variable references in a workspace.

=============== Diff against Tools-cmm.693 ===============

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
  		
  !