(cond
     ((featurep 'xemacs)
      (concat (format "XEmacs/%d.%d" emacs-major-version emacs-minor-version)
-             ;; XXX: beta?
+             ;; XXX: include beta version?
              (if (featurep 'mule)
                  "-mule")
             (if (boundp 'xemacs-codename)
              ))
     (t
      (concat (format "Emacs/%d.%d" emacs-major-version emacs-minor-version)
-             ;; XXX: unibyte or multibyte
+             ;; XXX: include unibyte/multibyte env. info.
              (if (boundp 'mule-version)
                  (concat " Mule/" mule-version))
+            ;; XXX: convert (Meadow-version) -> PRODUCT/VERSION.
              (if (featurep 'meadow)
                  (concat " " (Meadow-version)))
              ))