X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fadd-staccato.ly;h=3f772c75f2a57d3bc7f2dc6363d3619a2c9aadf6;hb=be9d398d705ecf2308e10864e37c6f1315c78ec9;hp=bbf30f6feff69048fda8a3c007ec746b044f9aa7;hpb=45bd5b4b26658517f5d8f25c2c5e228e9867818b;p=lilypond.git

diff --git a/input/test/add-staccato.ly b/input/test/add-staccato.ly
index bbf30f6fef..3f772c75f2 100644
--- a/input/test/add-staccato.ly
+++ b/input/test/add-staccato.ly
@@ -1,3 +1,4 @@
+\version "1.5.68"
 \header {
 
 texidoc= "Using make-music, you can add various stuff to notes. Here
@@ -8,13 +9,13 @@ one would not use scm constructs.  See separate-staccato.ly first."
 
 #(define (make-script x)
    (let ((m (ly-make-music "Articulation_req")))
-     (ly-set-mus-property! m 'articulation-type x)
-     (ly-set-mus-property! m 'script x)
+     (ly-set-mus-property!! m 'articulation-type x)
+     (ly-set-mus-property!! m 'script x)
      m))
     
 #(define (add-script m x)
    (if (equal? (ly-music-name m) "Request_chord")
-       (ly-set-mus-property! m 'elements
+       (ly-set-mus-property!! m 'elements
 			    (cons (make-script x)
 				  (ly-get-mus-property m 'elements)))