anchor.diff:          | null -> def
           | _ -> res
   
  -    let getProfiles() = 
  +    let getProfileKeyNames() = 
           let profKey = regLoc.Hive.OpenSubKey(regLoc.ProfRoot)
           match profKey with 
           | null -> [||]
  
positive.code:         value
  
      let createNewProfile() = 
          let profiles = getProfiles() 
        
          let pName = seq { 0..9999 } |> Seq.tryPick (fun i -> 
              let pname = "Profile" + zeroPad 4 (i.ToString())
  
negative.code:             let profiles = profKey.GetSubKeyNames()
              Array.sort profiles
  
      let findProfileKeyName (exePath:string) = 
          let exePath = exePath.Trim()
          let profiles = getProfileKeyNames() 
          profiles |> Array.tryPick (fun pName -> 
              let pBase = regLoc.ProfRoot @@ pName
              let profRoot = regLoc.Hive.Name @@ pBase
  