--- a/DeviceWorkstation.st	Fri Feb 10 11:22:19 2017 +0100
+++ b/DeviceWorkstation.st	Fri Feb 10 21:33:03 2017 +0100
@@ -6840,6 +6840,24 @@
     "Created: 2.1.1996 / 14:58:24 / cg"
 !
 
+appleAltModifierMask
+    "return the Xlib mask bit for the ALT modifier key on OS-X.
+     Nil returned for other displays"
+
+    ^ nil
+
+    "Created: / 10-02-2017 / 21:32:28 / cg"
+!
+
+appleCmdModifierMask
+    "return the Xlib mask bit for the CMD modifier key on OS-X.
+     Nil returned for other displays"
+
+    ^ nil
+
+    "Created: / 10-02-2017 / 21:32:35 / cg"
+!
+
 metaModifiers
     "Return the set of keys which are treated as Meta-keys (i.e. Cmd-keys).
      This set is initialized at startup from what the server thinks