X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fmarkup.scm;h=ceb6a86a245332109bf5b9af71f50fb54915be76;hb=7756b86627f9f956cd243bc9933f5fc55e97e5f8;hp=b0680ead52868bcbdf8ec5e4ec9b512ab341917c;hpb=1d6225cfe11ea59fe84ee6a29b5735b0798c5ec6;p=lilypond.git

diff --git a/scm/markup.scm b/scm/markup.scm
index b0680ead52..ceb6a86a24 100644
--- a/scm/markup.scm
+++ b/scm/markup.scm
@@ -208,7 +208,7 @@ against SIGNATURE, reporting MAKE-NAME as the user-invoked function.
 	 (string-append
 	  make-name ": "
 	  (_ "Invalid argument in position ~A.  Expect: ~A, found: ~S."))
-	  error-msg)
+	  (car error-msg) (cadr error-msg)(caddr error-msg))
 	(cons markup-function args))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;