"\\lilypondspecial\n"
"\\lilypondpostscript\n"))
-; why paper?
-(define (header creator time-stamp paper page-count classic?)
+(define (header creator time-stamp bookpaper page-count classic?)
(string-append
"% Generated by " creator "\n"
"% at " time-stamp "\n"