anchor.diff:                      | None -> ParseError ("missing comparer - " + newComparer) |> raise
                   | Empty -> (fun context->true)
   
  +        let defaultComparer (l:string) (r:string) = l.ToLower().CompareTo (r.ToLower())
           CompileExpression "" defaultComparer exp
   
       let parse (schema:JsonValue) = parsePropertySchema ConjuctionOp.And schema
  
positive.code:                     let lExp = CompileExpression prefix comparer l;
                      let rExp = CompileExpression prefix comparer r;
                      match op with
                      |ConjuctionOp.And -> evaluateAnd lExp rExp 
                      |ConjuctionOp.Or ->  evaluateOr lExp rExp 
                  | ArrayTest (op, op_value) ->  
                      (|>) prefix >> evaluateArrayTest comparer op op_value  
                  | Compare (op, op_value) ->  
  
negative.code: 
      let getPropName prefix prop = if prefix = "" then prop else (prefix + "." + prop)
  
      let private compile_internal (comparers:System.Collections.Generic.IDictionary<string,ComparerDelegate>) exp  = 
          let getComparer s = if comparers.ContainsKey(s) then Some comparers.[s] else None;
          let rec CompileExpression (prefix:string) comparer (exp: MatcherExpression)  : (Context) -> bool =
  