diff options
| -rw-r--r-- | ide/coqide.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 6bb0d7f0f5..b0d90f2cbd 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -704,7 +704,7 @@ let initial_about () = else "" in let msg = initial_string ^ version_info ^ log_file_message () in - notebook#current_term.messages#add msg + on_current_term (fun term -> term.messages#add msg) let coq_icon () = (* May raise Nof_found *) |