(_mu_scm_package_string, in scheme mu-package-string): New global.

@@ -47,6 +47,7 @@ mu_set_variable (const char *name, SCM value)
   scm_c_define (name, value);
 }
 
+SCM _mu_scm_package_string; /* STRING: PACKAGE_STRING */
 SCM _mu_scm_package;        /* STRING: PACKAGE */
 SCM _mu_scm_version;        /* STRING: VERSION */
 SCM _mu_scm_mailer;         /* STRING: Default mailer path. */
@@ -179,6 +180,9 @@ mu_scm_init ()
   _mu_scm_version = scm_makfrom0str (VERSION);
   mu_set_variable ("mu-version", _mu_scm_version);
 
+  _mu_scm_package_string = scm_makfrom0str (PACKAGE_STRING);
+  mu_set_variable ("mu-package-string", _mu_scm_package_string);
+
   /* Create MU- attribute names */
   for (i = 0; attr_kw[i].name; i++)
     scm_c_define(attr_kw[i].name, SCM_MAKINUM(attr_kw[i].value));