anchor.diff:  
   open System.Text.RegularExpressions
   
  +let ModifiedRegex = new Regex(@"\s\s\s\sModified\=Yes;\r\n", RegexOptions.Compiled)
  +
   let VersionRegex = new Regex(@"\n\s\s\s\sVersion List\=(?<VersionList>[^;\s]*);", RegexOptions.Compiled)
  +
  +let DateRegex = new Regex(@"\r\n\s\s\s\sDate\=(?<Date>[^;]*);\r\n", RegexOptions.Compiled)
  +
  +let TimeRegex = new Regex(@"\r\n\s\s\s\sTime\=(?<Time>[^;]*);\r\n", RegexOptions.Compiled)
  +
  +let replaceDateTimeInString (dateTime:DateTime) text = 
  +    let t1 = DateRegex.Replace(text, String.Format("\r\n    Date={0};\r\n", dateTime.Date.ToString("dd.MM.yy")))
  +    TimeRegex.Replace(t1, String.Format("\r\n    Time={0};\r\n", dateTime.ToString("HH:mm:ss")))
   
   let findVersionTagListInString text =
       if VersionRegex.IsMatch text then VersionRegex.Match(text).Groups.["VersionList"].Value else ""
  
positive.code:     else
          text + Colon.ToString() + versionTag + newVersion        
  
  let replaceVersionTag versionTag (newVersion:string) sourceCode =
      let tagList = findVersionTagListInString sourceCode
  
      let newTags = replaceInVersionTag tagList versionTag (newVersion.Replace(versionTag,""))
  
      VersionRegex.Replace(sourceCode, String.Format("\n    Version List={0};", newTags))
  
  let getMissingRequiredTags requiredTags versionTags =
      requiredTags
  
negative.code:         failwithf "Error during VersionTag check in %s.\r\nError: %s" name s
  
  let checkTagsInFile requiredTags acceptPreTagged invalidTags fileName =
      checkTagsInObjectString requiredTags acceptPreTagged invalidTags (ReadFileAsString fileName) fileName
  
  let modifyNavisionFiles requiredTags acceptPreTagged invalidTags versionTag newVersion removeModifiedFlag newDateTime fileNames =
      let errors = new System.Collections.Generic.List<string>()
      for fileName in fileNames do   
          try
              let objectString,tagList = checkTagsInFile requiredTags acceptPreTagged invalidTags fileName
  
              let text =
                  replaceVersionTagList
                      objectString
                      (replaceInVersionTag versionTag newVersion tagList)
  
              let text = if removeModifiedFlag then ModifiedRegex.Replace(text, String.Empty) else text
              let text = if newDateTime <> DateTime.MinValue then replaceDateTimeInString newDateTime text else text
  
              ReplaceFile fileName text
          with
          | ex ->
              errors.Add ex.Message
  
              if ex.InnerException <> null then
                  errors.Add("   - Inner: " + ex.InnerException.Message)
     
      if errors.Count <> 0 then
          let s = 
              errors |> separated "\r\n"
          failwithf "Error occured during ModifyVersionTags:%s" s