anchor.diff:              for file in Directory.EnumerateFiles(source,"*.*",SearchOption.TopDirectoryOnly) do
                   if not <| isExcluded file then
                       let fi = FileInfo file
  -                    let path = Path.Combine(target,fi.Name)
  +                    let fileName = ensureValidName fi.Name
  +                    let path = Path.Combine(target,fileName)
   
                       addEntryFromFile path fi.FullName
   
  
positive.code:         zipFile.CreateEntryFromFile(source,path) |> ignore
  
      let ensureValidTargetName (target:string) =
          let target =
            target.Replace(" ", "%20").Replace("\\", "/")
            |> fun s -> if s.StartsWith("./") then s.Remove(0,2) else s
  
          match target with
          | t when t.EndsWith("/")         -> t
  
negative.code:             if File.Exists source then
                  if not <| isExcluded source then
                      let fi = FileInfo(source)
                      let fileName = ensureValidName fi.Name
                      let path = Path.Combine(targetFileName,fileName)
                      addEntryFromFile path source
              else
                  failwithf "Could not find source file %s" source
  