diff -ruN sks-1.0.7-old/mRindex.ml sks-1.0.7/mRindex.ml
--- sks-1.0.8-old/mRindex.ml	Mon Aug  2 10:45:27 2004
+++ sks-1.0.8/mRindex.ml	Mon Aug  2 10:49:51 2004
@@ -116,7 +116,12 @@
 		   (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
+    List.map ~f:(fun (uid,sigs) -> 
+      match uid.packet_type with
+          User_ID_Packet -> uid_to_line full_keyid uid sigs
+	| User_Attribute_Packet -> "uat::::"
+	| _ -> "???::::"
+      ) uids
   in
   key_line::uid_lines