X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-markup-commands.scm;h=aef9e3aa284eeab47ca7a76ffa09c0416f59c1fe;hb=9e1dc8e44017d472fda6533cc749a8918f5b72a6;hp=8f5728c31be3379771f6229b1cde465f4f68f2e3;hpb=3113ee98e4d0c3753a2f7b60fffe5dfa47384935;p=lilypond.git

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 8f5728c31b..aef9e3aa28 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -1273,7 +1273,7 @@ figured bass notation"
 							 (number->string log)))
                        (cons (+ (car attach-off) (/ stem-thickness 2)) stemy)))))
 
-    (if (and flaggl (> dir 0))
+    (if (and dots flaggl (> dir 0))
 	(set! dots (ly:stencil-translate-axis dots 0.35 X)))
     (if flaggl
         (set! stem-glyph (ly:stencil-add flaggl stem-glyph)))