anchor.diff:  end;
   
   function TMainForm.GetChannelTab(const Channel: string): TTabSheet;
  -begin
  -  Result := GetTabByName(Channel);
  +var
  +  ChannelName: string;
  +begin
  +  ChannelName := RemoveOPVoicePrefix(Channel);
  +  Result := GetTabByName(ChannelName);
     if Result = nil then
  -    Result := NewChannelTab(Channel);
  +    Result := NewChannelTab(ChannelName);
   end;
   
   procedure TMainForm.AddChannelToTree(const Channel: string);
  
positive.code:   if Selected = nil then
       Exit;
  
    Tab := GetTabByName(Selected.Text);
    if Tab = nil then
      Exit;
  
  
negative.code: 
  implementation
  
  uses FileUtil, ConfigForm, config, sysutils;
  
  {$R *.lfm}
  
  