--- lilypond-2.4.2/lily/tie-engraver.cc	2004-09-11 14:35:20.000000000 +0200
+++ lilypond-2.4.2-kilian/lily/tie-engraver.cc	2005-01-27 20:03:08.229332784 +0100
@@ -105,10 +106,10 @@
 	  /*
 	    maybe should check positions too.
 	   */
-	  if (right_mus && left_mus
-	      && ly_c_equal_p (right_mus->get_property ("pitch"),
-			     left_mus->get_property ("pitch")))
-	    {
+	  if (right_mus && left_mus) {
+            Pitch *pl = unsmob_pitch (left_mus->get_property ("pitch"));
+            Pitch *pr = unsmob_pitch (right_mus->get_property ("pitch"));
+            if( pl->semitone_pitch() == pr->semitone_pitch()) {
 	      Grob * p = new Spanner  (tie_start_definition_);
 	      announce_grob (p, last_event_->self_scm ());
 	      Tie::set_interface (p); // cannot remove yet!
@@ -118,6 +120,7 @@
 	  
 	      ties_.push (p);
 	    }
+          }
 	}
 
       if (ties_.size () && ! tie_column_)