another (sign dir) fix for note markup

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 745b42f940c005527d58369dc4cc9d99d09c670b..71407e60cd31f2645f379f44d55d01cbefeb86be 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -1227,7 +1227,7 @@ figured bass notation"
          (stem-glyph (and (> log 0)
                          (ly:round-filled-box
                           (ordered-cons (car attach-off)
-                                        (+ (car attach-off)  (* (- dir) stem-thickness)))
+                                        (+ (car attach-off)  (* (- (sign dir)) stem-thickness)))
                           (cons (min stemy (cdr attach-off))
                                 (max stemy (cdr attach-off)))
                           (/ stem-thickness 3))))