# HG changeset patch
# User wenzelm
# Date 972469640 -7200
# Node ID 498999fd7c379c538169f8042b36382a6b66452a
# Parent  b52d32a114768039a66384863b3a6a11d018715d
tuned msg;

diff -r b52d32a11476 -r 498999fd7c37 src/Pure/Isar/toplevel.ML
--- 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));