--- a/ApplicationModel.st	Sat Jan 18 15:37:06 2020 +0100
+++ b/ApplicationModel.st	Sun Jan 19 17:31:15 2020 +0100
@@ -4174,12 +4174,15 @@
 !
 
 ctrlDown
-    "answer true if the control key is pressed"
-
-    |activeGroup|
-
-    (activeGroup := WindowGroup activeGroup) isNil ifTrue:[^ false].
-    ^ activeGroup sensor ctrlDown.
+    "answer true if the control key is currently pressed"
+
+"/    |activeGroup|
+"/
+"/    (activeGroup := WindowGroup activeGroup) isNil ifTrue:[
+"/        ^ false
+"/    ].
+"/    ^ activeGroup sensor ctrlDown.
+    ^ Screen current ctrlDown
 
     "Created: / 06-06-2019 / 15:24:51 / Stefan Vogel"
     "Modified: / 20-07-2019 / 08:41:30 / Claus Gittinger"