src/Pure/variable.ML

--- a/src/Pure/variable.ML	Tue Nov 24 17:28:44 2009 +0100
+++ b/src/Pure/variable.ML	Wed Nov 25 09:13:46 2009 +0100
@@ -345,7 +345,7 @@
     val fixes_inner = fixes_of inner;
     val fixes_outer = fixes_of outer;
 
-    val gen_fixes = map #2 ((uncurry take) (length fixes_inner - length fixes_outer, fixes_inner));
+    val gen_fixes = map #2 (take (length fixes_inner - length fixes_outer) fixes_inner);
     val still_fixed = not o member (op =) gen_fixes;
 
     val type_occs_inner = type_occs_of inner;