anchor.diff:              dir.Attributes <- dir.Attributes &&& (~~~FileAttributes.ReadOnly)  
   
   /// Sets all files in the directory readonly 
  -let SetDirReadOnly readOnly (dir:DirectoryInfo) =
  +let SetDirReadOnly readOnly dir =
       recursively (setDirectoryReadOnly readOnly) (fun file -> file.IsReadOnly <- readOnly) dir
     
   /// Sets all files in the directory readonly 
  
positive.code:               targetFI.Attributes <- FileAttributes.Normal
                fi.CopyTo(targetName,true) |> ignore
          else
            fi.CopyTo(targetName) |> ignore)
                 
  
  /// Copies the files to the target - Alias for Copy
  
negative.code:         logfn "Deleting %s" dir.FullName
          dir.Delete true
      else
          logfn "%s does not exist." dir.FullName
      
  /// Creates a directory if it does not exist
  let CreateDir x =   
  