X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fquote-iterator.cc;h=c55aae34285f006177111621362ee3a4b9ea1cd6;hb=c2ccda3e91d408453744bd03882c6b0584a9561a;hp=272f0808adda098fbf35cb32d055e1ae47a5ec73;hpb=d548c339bc07e4a707c1092507afe2d672e0457d;p=lilypond.git

diff --git a/lily/quote-iterator.cc b/lily/quote-iterator.cc
index 272f0808ad..c55aae3428 100644
--- a/lily/quote-iterator.cc
+++ b/lily/quote-iterator.cc
@@ -219,7 +219,7 @@ Quote_iterator::process (Moment m)
       Pitch *quote_pitch = unsmob_pitch (scm_cdar (entry));
 
       /*
-	The pitch that sounds when written central C is played.
+	The pitch that sounds like central C
       */
       Pitch *me_pitch = unsmob_pitch (get_music ()->get_property ("quoted-transposition"));
       if (!me_pitch)
@@ -243,8 +243,9 @@ Quote_iterator::process (Moment m)
 		  if (me_pitch)
 		    mp = *me_pitch;
 
-		  Pitch diff = pitch_interval (mp, qp);
-
+		  Pitch diff = pitch_interval (qp, mp);
+		  ev = ev->clone ();
+		  
 		  SCM props =  transpose_mutable (ev->get_property_alist (true), diff);
 		  ev = new Stream_event (ev->get_property ("class"), props);
 		  transposed_musics_ = scm_cons (ev->unprotect (), transposed_musics_);