diff -r 14050d4d9b00 -r c789c7441119 ex/ROOT.ML
--- a/ex/ROOT.ML	Tue Feb 28 10:48:46 1995 +0100
+++ b/ex/ROOT.ML	Tue Feb 28 10:52:55 1995 +0100
@@ -3,29 +3,30 @@
     Author: 	Tobias Nipkow, Cambridge University Computer Laboratory
     Copyright   1991  University of Cambridge
 
-Executes all examples for Higher-Order Logic. 
+Executes miscellaneous examples for Higher-Order Logic. 
 *)
 
 HOL_build_completed;    (*Cause examples to fail if HOL did*)
 
-writeln"Root file for HOL examples";
-proof_timing := true;
-loadpath := ["ex"];
-time_use     "ex/cla.ML";
-time_use     "ex/meson.ML";
-time_use     "ex/mesontest.ML";
-time_use_thy "String";
-time_use_thy "InSort";
-time_use_thy "Qsort";
-time_use_thy "LexProd";
-time_use_thy "Puzzle";
-time_use_thy "NatSum";
-time_use     "ex/set.ML";
-time_use_thy "SList";
-time_use_thy "LList";
-time_use_thy "Acc";
-time_use_thy "PropLog";
-time_use_thy "Term";
-time_use_thy "Simult";
-time_use_thy "MT";
-maketest     "END: Root file for HOL examples";
+(writeln"Root file for HOL examples";
+ proof_timing := true;
+ loadpath := ["ex"];
+ time_use     "ex/cla.ML";
+ time_use     "ex/meson.ML";
+ time_use     "ex/mesontest.ML";
+ time_use_thy "String";
+ time_use_thy "InSort";
+ time_use_thy "Qsort";
+ time_use_thy "LexProd";
+ time_use_thy "Puzzle";
+ time_use_thy "NatSum";
+ time_use     "ex/set.ML";
+ time_use_thy "SList";
+ time_use_thy "LList";
+ time_use_thy "Acc";
+ time_use_thy "PropLog";
+ time_use_thy "Term";
+ time_use_thy "Simult";
+ time_use_thy "MT";
+ writeln     "END: Root file for HOL examples"
+)  handle _ => exit 1;