@ARGV==1 or die "$0: need 1 arg, new TAPEID\n";
($newid)= @ARGV;
+open LOG, ">/dev/null" or die $!;
+
readtapeid_raw();
if (!open T,'TAPEID') {
print T "$newid\n" or die $!;
close T or die $!;
-writetapeid($newid);
+writetapeid($newid,'tapeid set manually');
rewind_raw();
print "Labelled tape \`$newid'\n" or die $!;