diff -r c1efae25ee76 -r a33b78d63114 src/Tools/code/code_thingol.ML
--- a/src/Tools/code/code_thingol.ML	Mon Oct 15 21:08:35 2007 +0200
+++ b/src/Tools/code/code_thingol.ML	Mon Oct 15 21:08:36 2007 +0200
@@ -427,7 +427,7 @@
   end
 and exprgen_dict_parms thy (algbr as (_, consts)) funcgr (c, ty_ctxt) =
   let
-    val ty_decl = Consts.the_declaration consts c;
+    val ty_decl = Consts.the_type consts c;
     val (tys, tys_decl) = pairself (curry (Consts.typargs consts) c) (ty_ctxt, ty_decl);
     val sorts = map (snd o dest_TVar) tys_decl;
   in