From 9d8542920238d721395c5e81e83e90a3cc301ecc Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 23:24:47 +0000
Subject: [PATCH] lilypond-1.3.73

---
 lily/tie.cc | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/lily/tie.cc b/lily/tie.cc
index 8e1cacf486..4eae4439cb 100644
--- 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;
 }
 
 
-- 
2.39.5