anchor.diff:        _AdditionalProperties = jsonschema:keyword(Schema, "additionalProperties", {}),
   
   
  -            ReqProps = [P || P <- Properties, lists:member(P, Required)],
  -            OptProps = [P || P <- Properties, not lists:member(P, Required)],
  +            ReqProps = [{P,S} || {P,S} <- Properties, lists:member(P, Required)],
  +            OptProps = [{P,S} || {P,S} <- Properties, not lists:member(P, Required)],
   
               %% case AdditionalProperties of 
               %%     false -> 
  
positive.code:             %%         AddP = AddSchema
              %% end,
  
  	    ?LOG("Required is: ~p~n",[Required]),
  	    ?LOG("Not Required is: ~p~n",[OptProps]),
              %?LOG("Additional Prop are: ~p~n", [AddP]),
              ?LOG("PatternProperties are: ~p~n",[PatternProperties]),
  
negative.code:                                             Optionals
                          ]
                        }));
          
          %% string
          %%     A JSON string.
  