typo s/\\OF/\\of/

[helm.git] / helm / matita / matitaScript.ml

diff --git a/helm/matita/matitaScript.ml b/helm/matita/matitaScript.ml
index 811b1a858a4b98f873445d76ee4d247d08f8f834..48cc9111bdad5c9c8511ef8f36d35ef1ee3a4145 100644 (file)
--- a/helm/matita/matitaScript.ml
+++ b/helm/matita/matitaScript.ml
@@ -108,7 +108,7 @@ let eval_with_engine guistuff status user_goal parsed_text st =
       | TA.Command (_, TA.Include _) -> DisambiguateTypes.Environment.empty
       | _ -> MatitaSync.alias_diff ~from:status new_status
   in
-  (* we remove the defined object since we consider them "automathic aliases" *)
+  (* we remove the defined object since we consider them "automatic aliases" *)
   let new_aliases = 
     let module DTE = DisambiguateTypes.Environment in
     let module UM = UriManager in
@@ -467,6 +467,7 @@ object (self)
   val error_tag = buffer#create_tag [`UNDERLINE `SINGLE; `FOREGROUND "red"]
 
   method locked_mark = locked_mark
+  method locked_tag = locked_tag
 
     (* history can't be empty, the invariant above grant that it contains at
      * least the init status *)