--- deliantra/server/utils/cfutil.in	2007/03/12 14:47:53	1.10
+++ deliantra/server/utils/cfutil.in	2007/03/12 14:55:43	1.11
@@ -316,7 +316,7 @@
       {
          open my $fh, ">:utf8", "$DATADIR/archetypes~"
             or die "$DATADIR/archetypes~: $!";
-         substr $_->{editor_folder}, 0, length $path, "" for @ARC;
+         substr $_->{editor_folder}, 0, 1 + length $path, "" for @ARC;
          print $fh Crossfire::archlist_to_string \@ARC;
       }