diff --git a/lang/pc/test/machar.p b/lang/pc/test/machar.p
index a13e4e73d..dd67d3c7b 100644
--- a/lang/pc/test/machar.p
+++ b/lang/pc/test/machar.p
@@ -1,3 +1,5 @@
+{ $Header$ }
+
 procedure machar (var ibeta , it , irnd , ngrd , machep , negep , iexp,
   minexp , maxexp : integer ; var eps , epsneg , xmin , xmax : real ) ;
 var trapped:boolean;
diff --git a/lang/pc/test/t1.p b/lang/pc/test/t1.p
index f845d086e..2a911615b 100644
--- a/lang/pc/test/t1.p
+++ b/lang/pc/test/t1.p
@@ -20,7 +20,9 @@ program t1(input,output);
 
 { This program can be used to test out PASCAL compilers }
 
-const ONE=1;  TWO=2;  TEN=10; FIFTY=50; MINONE=-1;
+const 
+   rcsversion='$Header$';
+   ONE=1;  TWO=2;  TEN=10; FIFTY=50; MINONE=-1;
 #ifndef NOFLOAT
    RR1=1.0; RR1H=1.5; RR2=2.0; RR3=3.0; RR4=4.0; RRMINONE=-1.0; 
 #endif
diff --git a/lang/pc/test/t2.p b/lang/pc/test/t2.p
index 4b618858b..f2024b750 100644
--- a/lang/pc/test/t2.p
+++ b/lang/pc/test/t2.p
@@ -20,6 +20,7 @@ program t2(input,output);
 { This program can be used to test out PASCAL compilers }
 
 const
+   rcsversion='$Header$';
    kew='q';
 #ifndef NOFLOAT
    eps = 2.0e-7;  { This constant is machine dependent }
diff --git a/lang/pc/test/t3.p b/lang/pc/test/t3.p
index b3eb0670a..dc5134a23 100644
--- a/lang/pc/test/t3.p
+++ b/lang/pc/test/t3.p
@@ -19,6 +19,7 @@ program t3(input,output,f1,f2,f3,f4,f5,f6);
 
 { The Berkeley and EM-1 compilers both can handle this program }
 
+const rcsversion='$Header$';
 type wavelength = (red,blue,yellow,q1,q2,q3,q4,q5,q6,q7,q8,q9,q10,q11,
                    pink,green,orange);
   spectrum= set of wavelength;
diff --git a/lang/pc/test/t4.p b/lang/pc/test/t4.p
index 8eedd6151..8a3cf1ff8 100644
--- a/lang/pc/test/t4.p
+++ b/lang/pc/test/t4.p
@@ -18,6 +18,7 @@
 
 program t4(input,output);
 { Tests for the EM-1 compiler }
+const rcsversion='$Header$';
 type vec = array[1..1000] of integer;
      spectrum = set of (red,blue,yellow);
 #ifndef NOFLOAT
diff --git a/lang/pc/test/t5.p b/lang/pc/test/t5.p
index f3076fa80..249ebf73e 100644
--- a/lang/pc/test/t5.p
+++ b/lang/pc/test/t5.p
@@ -1,5 +1,6 @@
 {$i1000}
 program test(output);
+const rcsversion='$Header$';
 var b:false..true;
     i:integer;
     s:set of 0..999;
diff --git a/lang/pc/test/tstenc.p b/lang/pc/test/tstenc.p
index c3099e855..f1841b3f9 100644
--- a/lang/pc/test/tstenc.p
+++ b/lang/pc/test/tstenc.p
@@ -15,7 +15,8 @@
  
 }
 program tstenc(output);
-const   trapno=150;
+const   rcsversion='$Header$';
+	trapno=150;
 var     level:integer;
 	beenhere:boolean;
 	e:integer;