--- a/WindowSensor.st	Wed Nov 26 15:47:05 2008 +0100
+++ b/WindowSensor.st	Wed Nov 26 15:56:30 2008 +0100
@@ -1511,11 +1511,12 @@
         xlatedKey := key.
     ].
 
-    xlatedKey isNil ifTrue:[^ self].
-
+"/ 'key: ' print. key storeString printCR.
 "/ 'xlatedKey: ' print. xlatedKey storeString printCR.    
 "/ 'keyWithModifier: ' print. keyWithModifier storeString printCR.    
 
+    xlatedKey isNil ifTrue:[^ self].
+
     "/ a special hook, allowing a screen hardCopy.
     xlatedKey == #Hardcopy ifTrue:[
         (Transcript notNil and:[Transcript isStream not]) ifTrue:[
@@ -3308,7 +3309,7 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.257 2008-11-05 15:13:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.258 2008-11-26 14:56:30 cg Exp $'
 ! !
 
 WindowSensor initialize!