anchor.diff:              if schemaIndexCount <> (Seq.length(words)) then failwithf "Number of columns do not match the number of attributes"       
               
               // Get value from schemaValues but failes if there is key not found exception
  -            let getvalue (words:SchemaValues) key = match words.TryFind(key) with
  -                                                    | Some(value) -> value
  -                                                    | None -> failwithf "No value in Column %A" key 
  +            let getvalue (words:SchemaValues) key = 
  +                match words.TryFind(key) with
  +                | Some(value) -> value
  +                | None -> failwithf "No value in Column %A" key 
   
               let valueToObject schemaItem =
                   match schemaItem.Tag,schemaItem.Deserialize with
  
positive.code:     //#region Csv reader
      module Csv = 
  
          type SchemaMode = 
              | Exact
              | Fill
  
  
  
          /// 
          type CsvReader<'Schema>(?typeConverter:Type -> Converter, ?schemaMode:SchemaMode,?verbose) =
  
               // Split string by delimiter
              let split (delim:char) (line:string) = 
                 line.Split([|delim|]) |> Array.map( fun s -> s.Trim())
  
              // Default SchemaMode
              let schemaMode = defaultArg schemaMode SchemaMode.Exact
              let typeConverter = defaultArg typeConverter defaultTypeConverter
              let verbose = defaultArg verbose false
  
              // Converts header line to header map
              let convertHeaderLine (separator) (headerLine:string) =
  
negative.code:                                      header |> Seq.map (fun (kv) -> (kv.Key,splitLine.[kv.Value])) |> Map.ofSeq
                              
                  match schemaMode with
                      | SchemaModes.Exact ->  schemaReader.ConvertExact words 
                      | SchemaModes.Fill  ->  schemaReader.Convert words
  
              /// Reads from a StreamReader and returns typed rows in a sequence according to the schema and given header string
              member this.ReadTextReader(reader:#TextReader, separator:char, header:string, ?SkipLines:int) = 
                  let skipLines = (defaultArg SkipLines 0)                 
                  let header    = convertHeaderLine separator header
  
                  Seq.unfold(fun line -> 
                      if line = null then 
                          reader.Close() 
  