diff --git a/modules/util/Util/ts.pm b/modules/util/Util/ts.pm
index eead920ab95a1c37f14531ba0098358113959077..cce3c5c600bbc77a619b8ed8a06ca23f80022217 100644
--- a/modules/util/Util/ts.pm
+++ b/modules/util/Util/ts.pm
@@ -41,6 +41,14 @@ sub ts_ISO2_gmt
            $ts[5]+1900, $ts[4]+1, $ts[3], $ts[2], $ts[1], $ts[0]);
 }
 
+sub ts_ISO_gmt
+{
+  my $time= shift || time ();
+  my @ts= gmtime ($time);
+  sprintf ("%04d-%02d-%02dT%02d%02d%02d",
+           $ts[5]+1900, $ts[4]+1, $ts[3], $ts[2], $ts[1], $ts[0]);
+}
+
 sub ts_pg
 {
   my $time= shift || time ();