X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaScript.ml;h=7e4dcb9fc04e4200a8c00e15a77c02af7e617a37;hb=dc861d214cb992a898f81752614201b8074eef12;hp=bd0441bc32f9f622629def426d9dece89716336f;hpb=c7b93cb79b6ba6886bfbd6260ee4c8e4a160776e;p=helm.git

diff --git a/helm/matita/matitaScript.ml b/helm/matita/matitaScript.ml
index bd0441bc3..7e4dcb9fc 100644
--- a/helm/matita/matitaScript.ml
+++ b/helm/matita/matitaScript.ml
@@ -57,7 +57,7 @@ let prepend_text header base =
   if Pcre.pmatch ~rex:heading_nl_RE base then
     sprintf "\n%s%s" header base
   else
-    sprintf "%s\n%s" header base
+    sprintf "\n%s\n%s" header base
 
   (** creates a statement AST for the Goal tactic, e.g. "goal 7" *)
 let goal_ast n =
@@ -130,7 +130,7 @@ let eval_with_engine guistuff status user_goal parsed_text st =
     if DisambiguateTypes.Environment.is_empty new_aliases then
       parsed_text
     else
-      prepend_text ("\n" ^ DisambiguatePp.pp_environment new_aliases)
+      prepend_text (DisambiguatePp.pp_environment new_aliases)
         parsed_text
   in
   let new_text =