diff --git a/src/System/DolDoc/DocPutKey.ZC b/src/System/DolDoc/DocPutKey.ZC
index fa782149..d8af2633 100755
--- a/src/System/DolDoc/DocPutKey.ZC
+++ b/src/System/DolDoc/DocPutKey.ZC
@@ -447,9 +447,21 @@ public U0 DocPutKey(CDoc *doc, I64 ch=0, I64 sc=0)
 
 									case SC_F6:
 										if (sc & SCF_KEY_DESC)
-											KeyDescSet("Cmd /God Song");
+										{
+											if (sc & SCF_SHIFT)
+												KeyDescSet("Cmd /God Doodle");
+											else
+												KeyDescSet("Cmd /God Song");
+										}
 										else
+										{
+											if(sc & SCF_SHIFT) {
+												DocUnlock(doc);
+												GodDoodle;
+												DocLock(doc);
+											} else
 											GodSong;
+										}
 										break;
 
 									case SC_F7: