                              { "somedude" f } } clone >>participants ] keep
         ] dip set-at ]
       [ connect-irc ]
-      [ drop 1 seconds sleep ]
+      [ drop 0.1 seconds sleep ]
       [ listeners>> [ "#factortest" ] dip at participants>> ]
       [ terminate-irc ]
     } cleave

    } make-client
    { [ "factorbot" set-nick ]
      [ connect-irc ]
      [ drop 1 seconds sleep ]
      [ join-messages>> 1 seconds mailbox-get-timeout ]
      [ terminate-irc ]
    } cleave
    [ class ] [ trailing>> ] bi ] unit-test

      [ listeners>>
        [ "#factortest" [ <irc-channel-listener> ] keep ] dip set-at ]
      [ connect-irc ]
      [ drop 0.1 seconds sleep ]
      [ listeners>> [ "#factortest" ] dip at participants>> ]
      [ terminate-irc ]
    } cleave
