lilypond-1.3.73

diff --git a/lily/tie.cc b/lily/tie.cc
index 8e1cacf4867793839683d14192504a6e67a0e226..4eae4439cb4d49bb220ede7af3326aeeb27c3f9f 100644 (file)
--- a/lily/tie.cc
+++ b/lily/tie.cc
@@ -84,11 +84,21 @@ Tie::get_default_dir (Score_element*me)
   Item * sl =  head(me,LEFT) ? Rhythmic_head::stem_l (head (me,LEFT)) :0;
   Item * sr =  head(me,RIGHT) ? Rhythmic_head::stem_l (head (me,RIGHT)) :0;  
 
-  if (sl && Directional_element_interface (sl).get () == UP
-      && sr && Directional_element_interface (sr).get () == UP)
-    return DOWN;
-  else
-    return UP;
+
+  if (sl && sr)
+    {
+      if (Directional_element_interface (sl).get () == UP
+         && Directional_element_interface (sr).get () == UP)
+       return DOWN;
+    }
+  else if (sl || sr)
+    {
+      Item *s = sl ? sl : sr;
+      return - Directional_element_interface (s). get ();
+    }
+
+  
+  return UP;
 }