--- deliantra/server/common/loader.C	2007/05/28 21:21:40	1.86
+++ deliantra/server/common/loader.C	2007/06/04 12:19:08	1.87
@@ -1287,8 +1287,8 @@
     f.put (KW_msg, KW_endmsg, op->msg);
   if (op->lore != tmp->lore)
     f.put (KW_lore, KW_endlore, op->lore);
-
-  CMP_OUT (other_arch);
+  if (op->other_arch != tmp->other_arch)
+    f.put (KW_other_arch, op->other_arch ? &op->other_arch->archname : 0);
 
   if (op->face != tmp->face) f.put (KW_face, op->face ? &faces [op->face] : 0);
 
@@ -1419,7 +1419,7 @@
 
   archetype *at = arch ? (archetype *)arch : empty_archetype;
 
-  f.put (KW_arch, at->name);
+  f.put (KW_arch, at->archname);
   write_diff (f, this, &at->clone);
 
   for (object *tmp = inv; tmp; tmp = tmp->below)