anchor.diff:  let AppendTextFiles newFileName files =    
       let fi = fileInfo newFileName
       if fi.Exists then failwithf "File %s already exists." (fi.FullName)
  -    ensureDirExists fi.Directory
       use writer = new StreamWriter(fi.FullName, false, Encoding.Default)
     
       files 
  
positive.code:         let targetName = target @@ fi.Name
          DeleteFile targetName
          logVerbosefn "Move %s to %s" fileName targetName
          ensureDirectory target
          f.MoveTo(targetName) |> ignore
      | Directory _ -> logVerbosefn "Ignoring %s, because it is no file" fileName
negative.code:     | File f ->  
          let targetName = target @@ fi.Name
          logVerbosefn "Copy %s to %s" fileName targetName
          f.CopyTo(targetName,true) |> ignore    
      | Directory _ -> logVerbosefn "Ignoring %s, because it is no file" fileName
    
  