--- a/DeviceWorkstation.st	Wed Nov 19 17:06:55 2014 +0100
+++ b/DeviceWorkstation.st	Thu Nov 20 15:58:44 2014 +0100
@@ -6947,7 +6947,7 @@
             "/   which is not prepared for that and checks shiftDown instead.
             "/   Therefore, this must be changed at the places where shiftDown is checked for!!
             "/   In the meanwhile, only do it iff there is a translation.
-            Display shiftDown ifTrue:[
+            shiftDown ifTrue:[
                 (k := ('Shift' , s) asSymbolIfInterned) notNil ifTrue:[
                     (self keyboardMap hasBindingFor:k) ifTrue:[
                         xlatedKey := k.
@@ -8423,11 +8423,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.624 2014-09-25 19:50:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.625 2014-11-20 14:58:44 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.624 2014-09-25 19:50:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.625 2014-11-20 14:58:44 stefan Exp $'
 ! !