LSR Execution? Failure

[Fairchild]

The ly file below doesn't function in the LSR environment.

                        - Bruce

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%{ Display ly file information on the score, including file name, file size,
 LilyPond version, date processed, time processed, time last modified, and
 the LilyPond command line. %}
#( define comml    ( object->string ( command-line )))
#( define slashloc ( + ( string-rindex comml #\/ ) 1 ))
#( define commllen ( - ( string-length comml ) 2 ))
#( define filen    ( substring comml slashloc commllen ))
#( define siz      ( object->string ( stat:size ( stat filen ))))
#( define ver      ( object->string (lilypond-version )))
#( define dat      ( strftime "%m/%d/%Y" ( localtime ( current-time ))))
#( define tim      ( strftime "%T" ( localtime ( current-time ))))
#( define modt     ( stat:mtime ( stat filen )))
#( define modts    ( strftime "%m/%d/%Y %T" (localtime modt)))
                \header { dedication = \markup \column <
{ "- - - - - - Using Scheme \"define\"-  - - - - -" } % "
{ "File Name = "        \filen }
{ "File Size = "        \siz   }
{ "LilyPond Version = " \ver   }
{ "Date Processed = "   \dat   }
{ "Time Processed = "   \tim   }
{ "Last Modified = "    \modts }
{ "Command Line = "     \comml }
{ "" }
{ "- - - - - - Using \"ly:export\" - - - - - -" } % "
{ #( ly:export ( string-append    "File Name = "
               ( substring ( object->string ( command-line ))
           ( + ( string-rindex ( object->string ( command-line )) #\/ ) 1 )
           ( - ( string-length ( object->string ( command-line )) ) 2 )))) }
{ #( ly:export ( string-append    "File Size = "
               ( object->string ( stat:size ( stat filen ))))) }
{ #( ly:export ( string-append    "LilyPond Version = "
               ( lilypond-version ))) }
{ #( ly:export ( string-append    "Date Processed = "
               ( strftime "%m/%d/%Y" ( localtime ( current-time ))))) }
{ #( ly:export ( string-append    "Time Processed = "
               ( strftime "%T" ( localtime ( current-time ))))) }
{ #( ly:export ( string-append    "Last Modified = "
               ( strftime "%m/%d/%Y %T"
               ( localtime ( stat:mtime ( stat filen )))))) }
{ #( ly:export ( string-append    "Command Line = "
               ( object->string ( command-line )))) }
        >       }
{ c''1_\markup { \column <
{ "- - - - - - In \"markup\" - - - - - -" } % "
{ "File Name = "        \filen }
{ "File Size = "        \siz   }
{ "LilyPond Version = " \ver   }
{ "Date Processed = "   \dat   }
{ "Time Processed = "   \tim   }
{ "Last Modified = "    \modts }
{ "Command Line = "     \comml }
>}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%