--- deliantra/server/ext/login.ext	2008/09/22 01:33:09	1.92
+++ deliantra/server/ext/login.ext	2008/12/13 21:46:12	1.94
@@ -15,11 +15,8 @@
 sub query {
    my ($ns, $flags, $text) = @_;
 
-   my $current = $Coro::current;
-   $ns->query ($flags, $text, sub { $current->ready; $current = $_[0] });
-   Coro::schedule while ref $current;
-
-   $current
+   $ns->query ($flags, $text, Coro::rouse_cb);
+   Coro::rouse_wait
 }
 
 sub can_cleanup {
@@ -435,6 +432,9 @@
 
          $ob->reply (undef, "Welcome to Deliantra!");
 
+         # XXX: Workaround for delayed client ext protocol handshake
+         $pl->esrv_new_player;
+
          delete $pl->{deny_save};
 
          last;