--- Unicall.pm.orig     2009-02-27 09:16:09.000000000 -0600
+++ Unicall.pm  2009-02-27 09:26:46.000000000 -0600
@@ -32,7 +32,10 @@
        print "Generating $file\n" if $genopts->{verbose};
        open(F, ">$file") || die "$0: Failed to open $file: $!\n";
        my $old = select F;
-	printf "; Autogenerated by %s on %s -- do not hand edit\n", $0, scalar(localtime);
+	printf "; Autogenerated by %s on %s\n", $0, scalar(localtime);
+	print  ";  **CAUTION** This file will be overwritten";
+	printf ";  if you execute %s again, and any changes", $0;
+	print  ";  made by hand will be LOST.";
        print  "; This file should be #included in unicall.conf\n\n";
        foreach my $span (@spans) {
                next unless $span->is_digital();