Ack, fix last revision.

tbsetup/archive_control.in

@@ -230,10 +230,10 @@ if ($action eq "commit") {
     }
 }
 elsif ($action eq "tag") {
-    usage()
-	if (! @ARGV);
-
-    my $tag = $ARGV[0];
+    my $tag = "tag";
+    
+    $tag = $ARGV[0]
+	if (@ARGV);
 
     if (! TBcheck_dbslot($tag, "archive_tags", "tag",
 			 TBDB_CHECKDBSLOT_WARN|TBDB_CHECKDBSLOT_ERROR)) {
@@ -244,7 +244,7 @@ elsif ($action eq "tag") {
     $tag = $1;
 
     my $usertag = 0;
-    if (defined($options{"u"})) {
+    if (scalar(@ARGV) && defined($options{"u"})) {
 	$usertag = 1;
     }
 

tbsetup/template_create.in

@@ -210,10 +210,10 @@ if ($STAMPS) {
 	$parent_template->Stamp("template_create", "modified");
 	
 	$template->Stamp("template_create", "creating",
-			 undef, "parent_version", $parent_vers);
+			 "parent_version", $parent_vers);
     }
     else {
-	$template->Stamp("template_create", "creating", undef, "new", 0);
+	$template->Stamp("template_create", "creating", "", 0);
     }
 }