--- a/src/CTT/ROOT.ML Thu May 19 16:42:04 1994 +0200
+++ b/src/CTT/ROOT.ML Thu May 19 17:06:24 1994 +0200
@@ -12,8 +12,7 @@
print_depth 1;
-structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
-open Readthy;
+init_thy_reader();
use_thy "CTT";
use "../Provers/typedsimp.ML";