diff -r d909e782e247 -r b81d803dfaa4 src/Pure/Tools/nbe_codegen.ML
--- a/src/Pure/Tools/nbe_codegen.ML	Fri Jun 09 12:17:37 2006 +0200
+++ b/src/Pure/Tools/nbe_codegen.ML	Fri Jun 09 12:17:58 2006 +0200
@@ -143,7 +143,7 @@
 
 val tcount = ref 0;
 
-(* FIXME get rid of TVar case!!! *)
+(* FIXME get rid of TFree case!!! *)
 fun varifyT ty =
   let val ty' = map_type_tvar (fn ((s,i),S) => TypeInfer.param (!tcount + i) (s,S)) ty;
       val _ = (tcount := !tcount + maxidx_of_typ ty + 1);