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

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

Name: Morphic-bf.581
Author: bf
Time: 29 September 2011, 11:14:17.625 am
UUID: 65441674-ca6b-4ad5-8a86-9d163816efd7
Ancestors: Morphic-dtl.580

Fix keyDown/keyUp events. Must not be interpreted.

=============== Diff against Morphic-dtl.580 ===============

Item was changed:
  ----- Method: HandMorph>>generateKeyboardEvent: (in category 'private events') -----
  generateKeyboardEvent: evtBuf
  	"Generate the appropriate mouse event for the given raw event buffer"
  
+ 	| buttons modifiers type pressType stamp keyValue |
- 	| buttons modifiers type pressType stamp char |
  	stamp := evtBuf second.
  	stamp = 0 ifTrue: [stamp := Time millisecondClockValue].
  	pressType := evtBuf fourth.
  	pressType = EventKeyDown ifTrue: [type := #keyDown].
  	pressType = EventKeyUp ifTrue: [type := #keyUp].
  	pressType = EventKeyChar ifTrue: [type := #keystroke].
  	modifiers := evtBuf fifth.
  	buttons := (modifiers bitShift: 3) bitOr: (lastMouseEvent buttons bitAnd: 7).
+ 	type = #keystroke
+ 		ifTrue: [keyValue := (self keyboardInterpreter nextCharFrom: Sensor firstEvt: evtBuf) asInteger]
+ 		ifFalse: [keyValue := evtBuf third].
- 	char := self keyboardInterpreter nextCharFrom: Sensor firstEvt: evtBuf.
  	^ KeyboardEvent new
  		setType: type
  		buttons: buttons
  		position: self position
+ 		keyValue: keyValue
- 		keyValue: char asciiValue
  		hand: self
  		stamp: stamp.
  !