diff -r ea417f69b36f -r 175a5b4b2c94 src/HOL/Tools/record.ML
--- a/src/HOL/Tools/record.ML	Mon Aug 09 11:45:30 2010 +0200
+++ b/src/HOL/Tools/record.ML	Mon Aug 09 13:56:02 2010 +0200
@@ -74,7 +74,7 @@
 
 val tuple_iso_tuple = (@{const_name Record.tuple_iso_tuple}, @{thm tuple_iso_tuple});
 
-fun named_cterm_instantiate values thm =
+fun named_cterm_instantiate values thm =  (* FIXME eliminate *)
   let
     fun match name ((name', _), _) = name = name';
     fun getvar name =