anchor.diff:     result:=NewNode(ntCHAR,nil,nil,nil,NewCharClass(GetCharClass(NodeLeft^.Value)+GetCharClass(NodeRight^.Value)));
     end else begin
      result:=NewNode(ntALT,NodeLeft,NodeRight,nil,0);
  -  end;
  +  end;{}
  +  result:=NewNode(ntALT,NodeLeft,NodeRight,nil,0);
    end else begin
     if assigned(NodeLeft) then begin
      result:=NodeLeft;
  
positive.code:      end;
       if assigned(Node) and ((Argument<>0) or (NodeStack.IndexOf(Node)<0)) then begin
        case Node^.NodeType of
         ntALT:begin
          case Argument of
           0:begin
  
negative.code:       sskMax=4*3;
  
        // Node types
        ntNOP=-1;
        ntALT=0;
        ntCAT=1;
        ntCHAR=2;
  