lib/scripts/convert.pl

     open TMPR,$tmpfile or die "Can't find tmp file $tmp: $!\n";
     while(<TMPR>) {
       s/@@(\d+)@@/$thmnames[$1]/eg;
       print TMPW $_;
     }
-    system("mv $currfile $currfile.~0~");
+    system("mv $currfile $currfile~0~");
     system("rm $tmpfile");
   }
 }
 
 sub done {