--- deliantra/server/utils/cfutil.in	2007/03/11 22:36:53	1.9
+++ deliantra/server/utils/cfutil.in	2007/03/12 14:47:53	1.10
@@ -204,6 +204,8 @@
          for my $o (values %$arc) {
             push @ARC, $o;
 
+            $o->{editor_folder} = $dir;
+
             my $visibility = delete $o->{visibility};
             my $magicmap   = delete $o->{magicmap};
 
@@ -314,6 +316,7 @@
       {
          open my $fh, ">:utf8", "$DATADIR/archetypes~"
             or die "$DATADIR/archetypes~: $!";
+         substr $_->{editor_folder}, 0, length $path, "" for @ARC;
          print $fh Crossfire::archlist_to_string \@ARC;
       }