;;;VaticanaStaff
(let ((tag "VaticanaStaff"))
	(ToggleDirective "staff" "postfix" tag (string-append " \\new VaticanaVoice = \"" (d-GetVoiceIdentifier) "\" <<\n")  DENEMO_OVERRIDE_LILYPOND)
	(ToggleDirective "voice" "postfix" tag "\n" (logior DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_LILYPOND)))