diff --git a/scm/lily.scm b/scm/lily.scm
index c5c905b3ca..89563d9e2c 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -436,6 +436,8 @@ messages into errors.")
   (ly:set-option 'debug-gc-object-lifetimes #f))
  (else))

+(ly:message "command line options: ~s" (ly:command-line-options))
+
 (for-each (lambda (x)
             (ly:set-option (car x) (cdr x)))
           (with-input-from-string (ly:command-line-options) read))
@@ -846,6 +848,7 @@ PIDs or the number of the process."

 (define-public (lilypond-main files)
   "Entry point for LilyPond."
+  (ly:message "command line code: ~s" (ly:command-line-code))
   (eval-string (ly:command-line-code))
   (if (ly:get-option 'help)
       (begin (ly:option-usage)