--- deliantra/server/lib/cf.pm	2006/08/29 17:32:19	1.55
+++ deliantra/server/lib/cf.pm	2006/08/30 11:21:24	1.57
@@ -484,6 +484,7 @@
       open my $fh, ">:raw", "$filename.pst~";
       syswrite $fh, Storable::nfreeze { version => 1, objs => $objs };
       close $fh;
+      unlink "$filename.cfperl";
       chmod SAVE_MODE, "$filename.pst~";
       rename "$filename.pst~", "$filename.pst";
    } else {
@@ -767,8 +768,7 @@
 };
 
 # old style persistent data, TODO: remove #d#
-*cf::mapsupport::on_swapin =
-*cf::mapsupport::on_load = sub {
+*cf::mapsupport::on_swapin = sub {
    my ($map) = @_;
 
    my $path = $map->tmpname;