(font-command): Fix, again.

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

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 5be1f087efabcc51ef68728f0f20f5d4d9b9c14a..ca5217ec34636cceeb0f3421608f9d9fa4fa8c67 100644 (file)
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -71,8 +71,12 @@
 
              (human-listify
               (map ref-ify
-                   (map symbol->string
-                        (hashq-ref iface->grob-table (car interface) '() )))))
+                   (sort 
+                    (map symbol->string
+                         (hashq-ref iface->grob-table (car interface) '() ))
+                    string<?)
+                   
+                   )))
 
       )))
 
@@ -111,7 +115,7 @@ node."
       #:name namestr
       #:text
       (string-append
-       namestr " grobs are created by: "
+       namestr " objects are created by: "
        (human-listify (map ref-ify
                           (map engraver-name engraver-names)))
        "\n\nStandard settings: \n\n"