--- deliantra/server/ext/ipo.ext	2007/06/19 20:39:30	1.7
+++ deliantra/server/ext/ipo.ext	2007/09/27 01:21:26	1.10
@@ -21,7 +21,7 @@
       sub { $_[0]->value (1000 * $price_fact) }
    ],
    mailscroll => [
-      1, 'scroll',
+      1, 'mailscroll_empty',
       sub {
          $_[0]->name    ("mailscroll T: $_[2] F: $_[1]");
          $_[0]->name_pl ("mailscrolls T: $_[2] F: $_[1]");
@@ -187,11 +187,14 @@
 
    } elsif ($cmd eq 'receive') {
       cf::async {
+         $Coro::current->{desc} = "ipo receive";
+
          my $storage = cf::map::find ("/planes/IPO_storage");
          unless ($storage) {
             $who->reply ($npc, "Sorry, our package delivery service is currently in strike. Please come back later.");
             return 1;
          }
+         $storage->load;
 
          my $plname = $who->name;
          my $cnt;
@@ -216,11 +219,14 @@
       }
 
       cf::async {
+         $Coro::current->{desc} = "ipo send";
+
          my $storage = cf::map::find ("/planes/IPO_storage");
          unless ($storage) {
             $who->reply ($npc, "Sorry, our package delivery service is currently in strike. Please come back later.");
             return 1;
          }
+         $storage->load;
 
          my $cnt;
          for ($who->inv) {