anchor.diff:              let profiles = profKey.GetSubKeyNames()
               Array.sort profiles
   
  -    let findProfile (exePath:string) = 
  +    let findProfileKeyName (exePath:string) = 
           let exePath = exePath.Trim()
  -        let profiles = getProfiles() 
  +        let profiles = getProfileKeyNames() 
           profiles |> Array.tryPick (fun pName -> 
               let pBase = regLoc.ProfRoot @@ pName
               let profRoot = regLoc.Hive.Name @@ pBase
  
positive.code:             failwithf "Exe path does not exist, cannot save profile: %A" conf.ExePath
  
          // already exist?
          let profKey = findProfile conf.ExePath
          let profKey = 
              match profKey with 
              | Some key -> key
  
negative.code:         value
  
      let createNewProfile() = 
          let profiles = getProfileKeyNames() 
        
          let pName = seq { 0..9999 } |> Seq.tryPick (fun i -> 
              let pname = "Profile" + zeroPad 4 (i.ToString())
  