anchor.diff:    begin
       if Assigned(FOnProgress) then
       begin
  -      FOnProgress(fProgress);
  +      FOnProgress('', fProgress);
       end;
     end;
   
  
positive.code:       repeat
          if ListenerSocket.CanRead(1000) then
          begin
            lastaction := now;	// there are active connections
  
            // todo: thread this out.
    				ConnectionSocket.Socket := ListenerSocket.Accept;
            errno := ConnectionSocket.LastError;
            if errno <> 0 then
            begin
    					fProgress := Format(
                	'** Error HTTP accepting socket. #%d : %s',
                	[ errno, GetSocketErrorMsg(errno) ]);
              Synchronize(@DoProgress);
            end
            else
            begin
    					AttendConnection(ConnectionSocket);
              ConnectionSocket.CloseSocket;
            end;
          end;
  
negative.code: 
  function TvtxWSServer.GetWebSocketConnectionClass(
            Socket: TTCPCustomConnectionSocket;
            Header: TStringList;
            ResourceName, sHost, sPort, Origin, Cookie: string;
        out HttpResult: integer;
        var Protocol, Extensions: string): TWebSocketServerConnections;
  begin
  