src/Pure/context.ML

--- a/src/Pure/context.ML	Tue Oct 04 16:47:40 2005 +0200
+++ b/src/Pure/context.ML	Tue Oct 04 19:01:37 2005 +0200
@@ -314,7 +314,8 @@
 
 fun create_thy name self id ids iids data ancestry history =
   let
-    val intermediate = #version history > 0;
+    val {version, name = _, intermediates = _} = history;
+    val intermediate = version > 0;
     val (ids', iids') = check_insert intermediate id (ids, iids);
     val id' = (serial (), name);
     val _ = check_insert intermediate id' (ids', iids');