anchor.diff:              (stringsSepBy (manySatisfy (fun c -> c <> '\'' && c <> '\\')) (pstring "\\" >>. escape)) |>> SingleValue 
           .>> ws
       
  -    let listOfValues = (str_ws "[" >>. sepBy1 stringLiteral (str_ws ",") .>> str_ws "]") |>> ValueList .>> ws
  +    let stringLiteralList = 
  +        let escape = anyOf "'" |>> function 
  +                     | c -> string c // every other char is mapped to itself
  +        between (pstring "\'") (pstring "\'") 
  +            (stringsSepBy (manySatisfy (fun c -> c <> '\'' && c <> '\\')) (pstring "\\" >>. escape)) .>> ws
  +    
  +    let listOfValues = (str_ws "[" >>. sepBy1 stringLiteralList (str_ws ",") .>> str_ws "]") |>> ValueList .>> ws
       
       /// <summary>
       /// Value parser
  
positive.code:         member this.Parse(input : string) = 
              match run Parser input with
              | Success(result, _, _) -> Choice1Of2(result)
              | Failure(errorMsg, _, _) -> Choice2Of2(errorMsg)
  
negative.code:     /// as it is not thread safe. This class will be created using object pool
      /// </summary>    
      type FlexParser() = 
          inherit PooledObject()
          let opp = new OperatorPrecedenceParser<Predicate, unit, unit>()
          let expr = opp.ExpressionParser
          
  