From aa2af15e815a8e1b10187981c347aa0167c02d09 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 21:47:15 +0000
Subject: [PATCH] lilypond-1.1.31

---
 scm/lily.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/scm/lily.scm b/scm/lily.scm
index 378fa22ebb..4cea79ddbf 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -180,8 +180,10 @@
     (define minht (* 2 mudelapaperstaffheight))
     (define maxht (* 7 minht))
     (string-append
-     "{\\bracefont " (char  (/  (- (min y (- maxht step)) minht)   step)) "}"))
-  
+     "{\\bracefont " (char (max
+			    0
+			    (/  (- (min y (- maxht step)) minht) step))) "}"))
+
 
 
   (define (rulesym h w) 
-- 
2.39.5