anchor.diff:  
   let checkTagsInObjectString requiredTags acceptPreTagged invalidTags objectString name =
       try
  -        let tagList = findVersionTagListInString objectString
  +        let tagList = getVersionTagList objectString
           let versionTags = tagList.ToUpper().Split Colon
   
           let isPreTagged = versionTags |> Seq.exists ((=) "PRE")
  
positive.code: 
  let TimeRegex = new Regex(@"\r\n\s\s\s\sTime\=(?<Time>[^;]*);", RegexOptions.Compiled)
  
  let replaceDateTimeInString (dateTime:DateTime) text = 
      let t1 = DateRegex.Replace(text, String.Format("\r\n    Date={0};", dateTime.Date.ToString("dd.MM.yy")))
      TimeRegex.Replace(t1, String.Format("\r\n    Time={0};", dateTime.ToString("HH:mm:ss")))
  
  let removeModifiedFlag text = ModifiedRegex.Replace(text, String.Empty)
  
  let findVersionTagListInString text =
      if VersionRegex.IsMatch text then VersionRegex.Match(text).Groups.["VersionList"].Value else ""
  
  let splitVersionTags (tagList:string) = tagList.ToUpper().Split Colon
  
negative.code:     VersionRegex.Replace(text, String.Format("\n    Version List={0};", newTags))
  
  let replaceVersionTag versionTag (newVersion:string) sourceCode =
      let tagList = getVersionTagList sourceCode
  
      replaceInVersionTag tagList versionTag (newVersion.Replace(versionTag,""))
      |> replaceVersionTagList sourceCode
  