anchor.diff:      true ->
         ok;
       false ->
  -      ErrorMsg = error_msg("Joiner ~p not allowed at posion ~p in ~p", [CP, Pos, Label]),
  +      ErrorMsg = error_msg("Joiner ~p not allowed at position ~p in ~p", [CP, Pos, Label]),
         erlang:exit({bad_label, {contextj, ErrorMsg}})
     end;
   valid_contextj(_CP, _Label, _Pos, false) ->
  
positive.code:     true ->
        ok;
      false ->
        ErrorMsg = error_msg("Joiner ~p not allowed at posion ~p in ~p", [CP, Pos, Label]),
        erlang:exit({bad_label, {contexto, ErrorMsg}})
    end;
  valid_contexto(_CP, _Label, _Pos, false) ->
  
negative.code:       ok =  valid_contexto(CP, Label, Pos, CheckJoiners),
        check_context(Rest, Label, CheckJoiners, Pos + 1);
      _Status ->
        ErrorMsg = error_msg("Codepoint ~p not allowed (~p) at position ~p in ~p", [CP, _Status, Pos, Label]),
        erlang:exit({bad_label, {context, ErrorMsg}})
    end;
  check_context([], _, _, _) ->
  