--- a/src/Pure/more_thm.ML Thu Jul 09 17:34:59 2009 +0200
+++ b/src/Pure/more_thm.ML Thu Jul 09 22:01:41 2009 +0200
@@ -414,4 +414,4 @@
val op aconvc = Thm.aconvc;
-structure Thmtab = TableFun(type key = thm val ord = Thm.thm_ord);
+structure Thmtab = Table(type key = thm val ord = Thm.thm_ord);