src/HOL/Mutabelle/mutabelle.ML

--- a/src/HOL/Mutabelle/mutabelle.ML	Sat Mar 20 02:23:41 2010 +0100
+++ b/src/HOL/Mutabelle/mutabelle.ML	Sat Mar 20 17:33:11 2010 +0100
@@ -218,7 +218,7 @@
      val typeSignature = #tsig (Sign.rep_sg consSig)
    in
      if ((consNameStr = forbNameStr) 
-       andalso (Type.typ_instance typeSignature (consType,(Logic.varifyT forbType))))
+       andalso (Type.typ_instance typeSignature (consType,(Logic.varifyT_global forbType))))
      then true
      else in_list_forb consSig (consNameStr,consType) xs
    end;