(est-eval-value-as-created-works): Fix problem when some items of

value are omitted.

diff --git a/est-eval.el b/est-eval.el
index d327070..25b8042 100644 (file)
--- a/est-eval.el
+++ b/est-eval.el
@@ -692,9 +692,11 @@
                 '(:subtype unordered-list)
               '(:separator " "))
             (mapcar (lambda (creator)
-                      (est-eval-list
-                       '((value (:feature <-creator)))
-                       creator nil))
+                      (if (concord-object-p creator)
+                          (est-eval-list
+                           '((value (:feature <-creator)))
+                           creator nil)
+                        (est-eval-value-default creator)))
                     value))
     (est-eval-value-default value)))