--- ocaml_sha-1.4/shasum.ml~	2009-02-25 07:32:53.000000000 +0100
+++ ocaml_sha-1.4/shasum.ml	2009-02-25 07:33:42.000000000 +0100
@@ -73,10 +73,10 @@
 	let sha512 file = Sha512.to_hex (Sha512.file file) in
 
 	let sha = match Filename.basename Sys.argv.(0) with
-		| "sha512sum" -> sha512
-		| "sha256sum" -> sha256
-		| "sha1sum"   -> sha1
-		| "md5sum"    -> md5
+		| "mlsha512sum" | "sha512sum" -> sha512
+		| "mlsha256sum" | "sha256sum" -> sha256
+		| "mlsha1sum"   | "sha1sum"   -> sha1
+		| "mlmd5sum"    | "md5sum"    -> md5
 		| _           -> sha1 in
 
 	let execfct_with_catch file =