@@ -1,3 +1,9 @@

[chiark-utils.git] / backup / labeltape

diff --git a/backup/labeltape b/backup/labeltape
index c06d897a7bdf7415642365ab6c0ab086b34a310f..b7081041102b7ea2c0ad47f11f97160c534b788d 100755 (executable)
--- a/backup/labeltape
+++ b/backup/labeltape
@@ -37,7 +37,7 @@ open T,'>TAPEID' or die $!;
 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 $!;