--- deliantra/server/server/cfperl.xs	2006/08/31 06:23:20	1.34
+++ deliantra/server/server/cfperl.xs	2006/08/31 09:19:34	1.35
@@ -406,9 +406,11 @@
   obj->optimise ();
 
   if (obj->self)
-    reattach (subclass::get_dt (), (subclass *)obj);
+    reattach ((data_type) cftype<subclass>::dt, (subclass *)obj);
 }
 
+#include "kw_hash.h"
+
 object_freezer::object_freezer ()
 {
   av = newAV ();
@@ -435,6 +437,21 @@
     }
 }
 
+void object_freezer::put (keyword k)
+{
+  sv_catpv (text, keyword_str [k]);
+}
+
+void object_freezer::put (const char *v)
+{
+  sv_catpv (text, v);
+}
+
+void object_freezer::put (int v)
+{
+  sv_catpvf (text, "%d\n", v);
+}
+
 bool object_freezer::save (const char *filename)
 {
   dSP;