+
+(define (completize-grob-entry x)
+ "transplant assoc key into 'name entry of 'meta of X
+"
+ (let* ((name-sym (car x))
+ (entry (cdr x))
+ (metaentry (cdr (assoc 'meta entry)))
+ (new-metaentry (assoc-set! metaentry 'name name-sym))
+ )
+
+ (cons name-sym (assoc-set! entry 'meta new-metaentry))
+ ))
+
+(set! all-grob-descriptions (map completize-grob-entry all-grob-descriptions))
+