--- deliantra/server/server/cfperl.xs	2006/09/10 14:54:02	1.49
+++ deliantra/server/server/cfperl.xs	2006/09/11 01:16:20	1.50
@@ -180,7 +180,7 @@
 inline SV *to_sv (player *       v) { return newSVattachable (v, "cf::player::wrap"); }
 inline SV *to_sv (object *       v) { return newSVattachable (v, v && v->type == PLAYER ? "cf::object::player::wrap" : "cf::object::wrap"); }
 inline SV *to_sv (mapstruct *    v) { return newSVattachable (v, "cf::map::wrap"); }
-inline SV *to_sv (archetype *    v) { return newSVptr (v, "cf::archetype::wrap"); }
+inline SV *to_sv (archetype *    v) { return newSVptr (v, "cf::arch::wrap"); }
 inline SV *to_sv (partylist *    v) { return newSVptr (v, "cf::party::wrap"); }
 inline SV *to_sv (region *       v) { return newSVptr (v, "cf::region::wrap"); }
 inline SV *to_sv (living *       v) { return newSVptr (v, "cf::living::wrap"); }
@@ -209,7 +209,7 @@
 inline void sv_to (SV *sv, double         &v) { v = SvNV (sv); }
 inline void sv_to (SV *sv, player *       &v) { v = (player *)SvPTR_ornull (sv, "cf::player"); }
 inline void sv_to (SV *sv, object *       &v) { v = (object *)SvPTR_ornull (sv, "cf::object"); }
-inline void sv_to (SV *sv, archetype *    &v) { v = (archetype *)SvPTR_ornull (sv, "cf::archetype"); }
+inline void sv_to (SV *sv, archetype *    &v) { v = (archetype *)SvPTR_ornull (sv, "cf::arch"); }
 inline void sv_to (SV *sv, mapstruct *    &v) { v = (mapstruct *)SvPTR_ornull (sv, "cf::map"); }
 inline void sv_to (SV *sv, partylist *    &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
 inline void sv_to (SV *sv, region *       &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }