diff --git a/modules/database/src/ioc/misc/epicsRelease.c b/modules/database/src/ioc/misc/epicsRelease.c
index c1801179f..a1783fb8c 100644
--- a/modules/database/src/ioc/misc/epicsRelease.c
+++ b/modules/database/src/ioc/misc/epicsRelease.c
@@ -23,6 +23,7 @@ DBCORE_API int coreRelease(void)
     printf ( "############################################################################\n" );
     printf ( "## %s\n", epicsReleaseVersion );
     printf ( "## %s\n", "Rev. " EPICS_VCS_VERSION );
+    printf ( "## %s\n", "Rev. Date " EPICS_VCS_VERSION_DATE );
     printf ( "############################################################################\n" );
     return 0;
 }
diff --git a/src/tools/genVersionHeader.pl b/src/tools/genVersionHeader.pl
index 2466aef6b..bb291c0a2 100644
--- a/src/tools/genVersionHeader.pl
+++ b/src/tools/genVersionHeader.pl
@@ -29,7 +29,10 @@ our $opt_t = '.';
 our $opt_N = 'VCSVERSION';
 our $opt_V = $now;
 
+our $RevDate = $now;
+
 my $vcs;
+my $cv;
 
 getopts('dhivqt:N:V:') && @ARGV == 1
     or HELP_MESSAGE();
@@ -53,6 +56,7 @@ if (!$vcs && -d "$opt_t/_darcs") { # Darcs
         my $hasmod = `darcs whatsnew --repodir="$opt_t" -l`;
         $opt_V .= '-dirty' unless $?;
     }
+    $cv = ""; # ToDo
 }
 if (!$vcs && -d "$opt_t/.hg") { # Mercurial
     print "== Found <top>/.hg directory\n" if $opt_v;
@@ -69,6 +73,7 @@ if (!$vcs && -d "$opt_t/.hg") { # Mercurial
         chomp $hasmod;
         $opt_V .= '-dirty' if $hasmod ne '';
     }
+    $cv = `hg log -l1 --template '{date|isodate}'` # this is untested
 }
 if (!$vcs && -d "$opt_t/.git") { # Git
     print "== Found <top>/.git directory\n" if $opt_v;
@@ -82,6 +87,7 @@ if (!$vcs && -d "$opt_t/.git") { # Git
         $opt_V = $result;
         $vcs = 'Git';
     }
+    $cv = `git show -s --format=%ci HEAD`;
 }
 if (!$vcs && -d "$opt_t/.svn") { # Subversion
     print "== Found <top>/.svn directory\n" if $opt_v;
@@ -97,6 +103,7 @@ if (!$vcs && -d "$opt_t/.svn") { # Subversion
         chomp $hasmod;
         $opt_V .= '-dirty' if $hasmod ne '';
     }
+    $cv = `svn info --show-item last-changed-date`; # this is untested
 }
 if (!$vcs && -d "$opt_t/.bzr") { # Bazaar
     print "== Found <top>/.bzr directory\n" if $opt_v;
@@ -108,6 +115,7 @@ if (!$vcs && -d "$opt_t/.bzr") { # Bazaar
         $opt_V = $result;
         $vcs = 'Bazaar';
     }
+    $cv = `bzr version-info -q --custom --template='{date}'`;
 }
 if (!$vcs) {
     print "== No VCS directories\n" if $opt_v;
@@ -120,6 +128,9 @@ if (!$vcs) {
     }
 }
 
+chomp $cv;
+$RevDate=$vcs . ': ' . $cv;
+
 my $output = << "__END";
 /* Generated file, do not edit! */
 
@@ -128,12 +139,16 @@ my $output = << "__END";
 #ifndef $opt_N
   #define $opt_N \"$opt_V\"
 #endif
+#ifndef ${opt_N}_DATE
+  #define ${opt_N}_DATE \"$RevDate\"
+#endif
 __END
 
 print "== Want:\n$output==\n" if $opt_v;
 
 my $DST;
 if (open($DST, '+<', $outfile)) {
+
     my $actual = join('', <$DST>);
     print "== Current:\n$actual==\n" if $opt_v;
 
@@ -190,4 +205,3 @@ Usage:
 EOF
     exit $opt_h ? 0 : 1;
 }
-