anchor.diff:      | :? FieldReference as f ->
           updateF f.DeclaringType |> Option.iter (fun t -> f.DeclaringType <- t)
       | :? Instruction as instr ->
  -        updateInstruction updateF ilProc instr
  +        updateInstruction updateF instr
       | :? (Instruction []) as instructions ->
           for instr in instructions do
  -            updateInstruction updateF ilProc instr
  +            updateInstruction updateF instr
       | _ -> ()
   
   
  
positive.code:     let n = state.CompiledAssemblyCount + 1
      let target = sprintf "C:/mbrace/%d.dll" n
  
      let name = mainModule.Assembly.Name.Name <- sprintf "FSI_%03d" n
  
      do snapshot.Write(target)
  
  
negative.code: open Mono.Cecil.Cil
  
  let ass = Assembly.GetExecutingAssembly()
  let allDecls = BindingFlags.NonPublic ||| BindingFlags.Public ||| BindingFlags.Instance ||| BindingFlags.Static
  let tryFindFsiName =
      let fsiRegex = Regex("FSI_[0-9]{4}")
      fun (name : string) ->
  