diff --git a/src/cmd/devdraw/cocoa-screen.m b/src/cmd/devdraw/cocoa-screen.m
index 7aebae2..6a3f70f 100644
--- a/src/cmd/devdraw/cocoa-screen.m
+++ b/src/cmd/devdraw/cocoa-screen.m
@@ -30,6 +30,7 @@
 
 // Use non-deprecated names.
 #define NSKeyDown NSEventTypeKeyDown
+#define NSShiftKeyMask NSEventModifierFlagShift
 #define NSAlternateKeyMask NSEventModifierFlagOption
 #define NSCommandKeyMask NSEventModifierFlagCommand
 #define NSResizableWindowMask NSWindowStyleMaskResizable
@@ -903,6 +904,8 @@
 		interpretdeadkey(e);
 
 		if(m & NSCommandKeyMask){
+			if((m & NSShiftKeyMask) && 'a' <= c && c <= 'z')
+				c += 'A' - 'a';
 			if(' '<=c && c<='~')
 				keystroke(Kcmd+c);
 			break;