--- deliantra/server/ext/dm-support.ext	2007/09/30 22:33:52	1.12
+++ deliantra/server/ext/dm-support.ext	2007/10/01 00:44:43	1.13
@@ -39,11 +39,12 @@
       if (defined (my $cmd = <$fh>)) {
          $cmd =~ s/\s+$//;
 
-         select $fh;
          if ($cmd =~ /^\s*exit\b/i) {
-            print "will not exit() server.\n";
+            print $fh "will not exit() server.\n";
          } elsif ($cmd =~ s/^coro\s+// or $cmd =~ /^(?:ps|bt\s)/) {
+            select $fh;
             Coro::Debug::command $cmd;
+            select STDOUT;
          } else {
             my $sub = sub {
                package cf;
@@ -77,8 +78,7 @@
             }
          }
 
-         print "\n> ";
-         select STDOUT;
+         print $fh "\n> ";
       } else {
          $_[0]->w->cancel;
       }