Trivial thinko fix.

[lilypond.git] / scm / document-translation.scm

diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index 538bee10a5864ece8bc7d48bd69a01cfd06da593..9db6bb4b882e31dff0ab0946657473eb60f648fa 100644 (file)
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -171,11 +171,15 @@
        "."
 
        (if (and (pair? props) (not (null? props)))
-          (string-append
-           "\n\nThis context sets the following properties:\n"
-           "@itemize @bullet\n"
-           (apply string-append (map document-property-operation props))
-           "@end itemize\n")
+          (let ((str (apply string-append (map document-property-operation
+                                               props))))
+            (if (string-null? str)
+                ""
+                (string-append
+                 "\n\nThis context sets the following properties:\n\n"
+                 "@itemize @bullet\n"
+                 str
+                 "@end itemize\n")))
           "")
        
        (if (null? accepts)