diff -Naur validator.orig/httpd/cgi-bin/check validator/httpd/cgi-bin/check
--- validator.orig/httpd/cgi-bin/check	Fri Sep 14 06:13:17 2001
+++ validator/httpd/cgi-bin/check	Sat Feb  9 17:46:02 2002
@@ -1192,6 +1192,7 @@
   my $line = shift;
   my $col  = shift;
 
+  my $col_orig = $col;
   if (length $line > 70) {
     if ($col < 25) {      # Truncate at 70 chars and right side only.
       $line = substr($line, 0, 70) . " ...";
@@ -1217,7 +1218,7 @@
     }
   }
 
-  return $line, $col;
+  return $line, $col, $col_orig;
 }
 
 
@@ -1312,7 +1313,7 @@
     }
 
 
-    my($line, $col) = &truncate_line($File->{Content}->[$err->{line}-1], $err->{char});
+    my($line, $col, $col_orig) = &truncate_line($File->{Content}->[$err->{line}-1], $err->{char});
 
     # Strip curlies from lq-nsgmls output.
     $err->{msg} =~ s/[{}]//g;
@@ -1325,7 +1326,7 @@
     $line = &ent($line); # Entity encode.
     $line =~ s/\t/ /g;   # Collapse TABs.
 
-    print qq(  <li>Line <a href="#line-$err->{line}">$err->{line}</a>, column $col:\n);
+    print qq(  <li>Line <a href="#line-$err->{line}">$err->{line}</a>, column $col [$col_orig in the file]:\n);
 
     print "<pre>  <code class=input>$line</code>\n";
     print " " x ($col + 2); # 2 is the number of spaces before <code> above