--- deliantra/server/ext/Jeweler.pm	2007/09/30 16:24:29	1.20
+++ deliantra/server/ext/Jeweler.pm	2007/10/12 19:13:26	1.21
@@ -479,7 +479,7 @@
 sub improve_ring_by_plan {
    my ($self, $plan, $ring) = @_;
 
-   $ring = dclone ($ring);
+   $ring = do { my $guard = Coro::Storable::guard; dclone $ring };
 
    my $ingred = $self->{ingredients};
    my $impr = {};
@@ -573,7 +573,7 @@
 sub check_costs {
    my ($self, $costs, $do_remove) = @_;
 
-   my $costs = dclone ($costs);
+   my $costs = do { my $guard = Coro::Storable::guard; dclone $costs };
 
    for my $key (keys %$costs) {
       my @grepar;