anchor.diff:      WideSameText(GetTag(ALine), '(') and
       IsSystemStoreName(GetTag(ALine)) and
       WideSameText(GetTag(ALine), ')') and
  -    GetXStr(ALine, s);
  +    ParseKeyOrXStr(ALine, s);
   
     if not Result then
     begin
  
positive.code:   Result := SystemStoreFromName(Value) <> ssNone;
  end;
  
  class function TKeyboardParser_SystemStore.IsType(ALine: WideString): Boolean;
  var
    t, s: WideString;
  
negative.code:     FValue: WideString;
      procedure SetValue(Value: WideString);
      class function IsSystemStoreName(Value: WideString): Boolean;
      class function ParseKeyOrXStr(ALine: WideString;
        var Output: WideString): Boolean; static;
    protected
      procedure InitLine(ALine: WideString); override;
    public
  