diff --git a/bin/export.pike b/bin/export.pike
index 5482acd60b1542a4526e847b646f6f2dcfc8d6c6..543dd3d069740fdba13d1adace72a31484bd559c 100755
--- a/bin/export.pike
+++ b/bin/export.pike
@@ -1,6 +1,6 @@
 #!/usr/local/bin/pike
 
-/* $Id: export.pike,v 1.9 1997/10/22 02:37:42 hubbe Exp $ */
+/* $Id: export.pike,v 1.10 1997/11/20 19:28:22 hubbe Exp $ */
 
 #include <simulate.h>
 
@@ -61,6 +61,15 @@ int main(int argc, string *argv)
   string *files;
   vpath=replace(version()," ","-");
 
+  mapping x=localtime(time());
+  string tag=replace(vpath,({"Pike-","."}),({"","_"}))+"-"+
+       sprintf("%02d%02d%02d-%02d%02d",
+		   x->year,
+		   x->mon+1,
+		   x->mday,
+		   x->hour,
+		   x->min);
+
   tmp=reverse(argv[0]/"/");
   except_modules=mklist(argv[1..]);
   e=search(tmp,"pike");
@@ -73,6 +82,9 @@ int main(int argc, string *argv)
   tmp=reverse(tmp[e+1..]);
   cd(tmp*"/");
   perror("Sourcedir = "+tmp*"/"+"/pike\n");
+  
+  perror("Creating tag "+tag+" in the background.\n");
+  system("cd pike ; cvs tag -R -F "+tag+"&");
 
   fix_configure("pike/src");