anchor.diff:      let BuildMethod<'T> (holeName: HoleName) (resTy: Type)
               (wrapArg: Expr<'T> -> Expr<TemplateHole>) (ctx: Ctx) =
           ctx.PT.ProvidedMethod(holeName, [ProvidedParameter(holeName, typeof<'T>)], resTy, function
  -            | [this; arg] -> <@@ (%wrapArg (Expr.Cast arg)) :: %%this @@>
  +            | [this; arg] -> <@@ box ((%wrapArg (Expr.Cast arg)) :: ((%%this : obj) :?> list<TemplateHole>)) @@>
               | _ -> failwith "Incorrect invoke")
   
       let BuildHoleMethods (holeName: HoleName) (holeKind: HoleKind) (resTy: Type) (ctx: Ctx)
  
positive.code:                     let template = Parsing.Parse pathOrHtml cfg.ResolutionFolder Parsing.ExtractSubTemplatesFromRoot
                      setupWatcher template.ParseKind
                      let ty =
                          ctx.ProvidedTypeDefinition(thisAssembly, rootNamespace, typename,
                              Some typeof<list<TemplateHole>>)
                              .WithXmlDoc(XmlDoc.TemplateType "")
                      try OldProvider.RunOldProvider pathOrHtml cfg ctx ty
                      with _ -> reraise()
  
negative.code:                             %OptionValue ctx.Name,
                              %OptionValue ctx.Path,
                              %%Expr.Value ctx.Template.Src,
                              ((%%args.[0] : obj) :?> list<TemplateHole>),
                              %%Expr.Value ctx.ServerLoad
                          ) @@>
                  | _ -> failwith "ClientLoad.Download not implemented yet"
  