diff -ruN sks-1.0.7-old/mRindex.ml sks-1.0.7/mRindex.ml
--- sks-1.0.8-old/mRindex.ml	Sun Oct 12 22:20:18 2003
+++ sks-1.0.8/mRindex.ml	Mon Aug  2 10:36:39 2004
@@ -107,12 +107,13 @@
     | Some days -> sprintf "%Ld"
 	(Int64.add pki.pk_ctime (Int64.mul daysecs (Int64.of_int days)))
   in
-  let key_line = sprintf "pub:%s:%d:%d:%Ld:%s:"
+  let key_line = sprintf "pub:%s:%d:%d:%Ld:%s:%s"
 		   keyid 
 		   pki.pk_alg 
 		   pki.pk_keylen
 		   pki.pk_ctime
 		   exp_string
+		   (if (Index.is_revoked key) then "r" else "")
   in
   let uid_lines = 
     List.map ~f:(fun (uid,sigs) -> uid_to_line full_keyid uid sigs) uids