--- sks.ml.old	Wed Mar 17 17:05:16 2004
+++ sks.ml	Tue Mar 16 00:52:07 2004
@@ -105,6 +105,14 @@
 	      M.run ()
 	   )
   };
+  { name = "printlog";
+    usage = "maxlines timestamp";
+    desc = "Print lines from the log (lists add/removes) since timestamp but at most maxlines";
+    func = (fun () -> 
+	      let module M = Sksprintlog.F(struct end) in
+	      M.run ()
+	   )
+  };
   { name = "merge";
     usage = "";
     desc = "Adds key from key files to existing database";