anchor.diff:  
   type DynamicsNavParams =
       { ToolPath: string
  -      RTC: string
         ServerName: string
         Database: string
         WorkingDir: string
         TempLogFile: string
         TimeOut: TimeSpan}
   
  -/// Creates the connection information to a Dynamics NAV instance
  -let createConnectionInfo navClientVersion serverMode serverName targetDatabase =
  +let getNAVPath navClientVersion =
       let navClassicPath =
           let subKey = 
               match navClientVersion with
  
positive.code: 
          getRegistryValue HKEYLocalMachine subKey "Path"
  
      let navPath = (directoryInfo navClassicPath).Parent.FullName
      let navServicePath = 
              try
                  let navServiceRootPath =
  
negative.code:             with
              | exn -> @"C:\Program Files\Navision700\70\Service"
  
      let clientExe = 
          match serverMode with
          | NavisionServerType.SqlServer -> "finsql.exe"
          | NavisionServerType.NativeServer -> "fin.exe"
  
      let finExe = getNAVPath navClientVersion @@ clientExe
  
      { ToolPath =  finExe
        WorkingDir = null
        ServerName = serverName
        Database = targetDatabase
  