--- a/src/Pure/Isar/toplevel.ML Wed Oct 25 12:26:55 2000 +0200
+++ b/src/Pure/Isar/toplevel.ML Wed Oct 25 12:27:20 2000 +0200
@@ -430,7 +430,7 @@
(case apply false tr st of
Some (st', None) =>
excur trs (st', transform_error (fn () => f st' res) () handle exn =>
- raise EXCURSION_FAIL (exn, "Presentation failed.\n" ^ at_command tr))
+ raise EXCURSION_FAIL (exn, "Presentation failed\n" ^ at_command tr))
| Some (st', Some exn_info) => raise EXCURSION_FAIL exn_info
| None => raise EXCURSION_FAIL (TERMINATE, at_command tr));