anchor.diff:    private
       method JSONStr(aExecutionContext: ExecutionContext; aStack: List<Object>; aGap, aIndent: string; aReplacerFunction: EcmaScriptBaseFunctionObject; 
         aProplist: List<String>; aWork: EcmaScriptObject; aValue: String): string;
  -    class method JSONQuote(val: String): string;
  -  end;  
  +  end;
   
   
  +  JSON = public static class
  +  public
  +    class method QuoteString(value: String): String;
  +    class method ToString(value: Object): String;
  +  end;
  +
  +
   implementation
   
   method GlobalObject.CreateJSON: EcmaScriptObject;
  
positive.code:   exit nil;
  end;
  
  class method GlobalObject.JSONQuote(val: String): string;
  begin
    var sb := new StringBuilder;
    sb.Append('"');
    for i: Integer := 0 to val.Length -1 do begin
      case val[i] of
        '"': sb.Append('\"');
        '\': sb.Append('\\');
        #10: sb.Append('\n');
        #13: sb.Append('\r');
        #12: sb.Append('\f');
        #9: sb.Append('\t');
        #8: sb.Append('\b');
        #0 .. #7, #11, #14 ..#31: begin
          sb.Append('\u');
          sb.Append(Integer(val[i]).ToString('x4'));
        end
      else
        sb.Append(val[i]);
      end; // case
    end;
  
    sb.Append('"');
    exit sb.ToString;
  end;
  
  end.
  
negative.code: 
  interface
  
  uses
    System.Collections.Generic,
    System.Globalization,
    System.Text,
    System.Linq,
    Microsoft,
    RemObjects.Script,
    RemObjects.Script.EcmaScript.Internal;
  
  type
    GlobalObject = public partial class(EcmaScriptObject)
  