X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Frottener.ml;h=3674d25ebac94177cc329f39f92db287e8a45f20;hb=488f49d2ac60fa63e65a19ad8684414266e05ac6;hp=82f4d5947300cb9272c7c20d8adf09398db28c52;hpb=7ba64c01b703caf47b4654c8fc954a8aa7818173;p=helm.git

diff --git a/helm/software/matita/rottener.ml b/helm/software/matita/rottener.ml
index 82f4d5947..3674d25eb 100644
--- a/helm/software/matita/rottener.ml
+++ b/helm/software/matita/rottener.ml
@@ -111,7 +111,7 @@ let rotten_script ~fname statement =
   let script' = sprintf "%s%s%s%s" matches.(1) statement' matches.(3) trailer in
   let md5 = Digest.to_hex (Digest.string script') in
   HExtlib.output_file
-    ~filename:(sprintf "%s.rottened.%s.ma" (Filename.chop_extension fname) md5)
+    ~filename:(sprintf "%s.%s.rottened" fname md5)
     ~text:script'
 
 let grep () =