Index: generic/predefined.h
===================================================================
diff -u -r44736fc4e8b7b220f25afc685739f79c263b7d99 -r7b269f76914972e68ebdd5d419f543793bb01c51
--- generic/predefined.h	(.../predefined.h)	(revision 44736fc4e8b7b220f25afc685739f79c263b7d99)
+++ generic/predefined.h	(.../predefined.h)	(revision 7b269f76914972e68ebdd5d419f543793bb01c51)
@@ -433,8 +433,7 @@
 "foreach arg $arglist {\n"
 "::xotcl::Attribute createFromParameterSyntax [::xotcl::current object] {*}$arg}\n"
 "set slot [::xotcl::current object]::slot\n"
-"if {[llength arglist] < 1} {\n"
-"if {![::xotcl::objectproperty $slot object]} {::xotcl2::Object create $slot}}\n"
+"if {![::xotcl::objectproperty $slot object]} {::xotcl2::Object create $slot}\n"
 "::xotcl::setvar $slot __parameter $arglist}\n"
 "proc createBootstrapAttributeSlots {} {}\n"
 "::xotcl::Slot method type=hasmixin {name value arg} {\n"
Index: generic/predefined.xotcl
===================================================================
diff -u -r44736fc4e8b7b220f25afc685739f79c263b7d99 -r7b269f76914972e68ebdd5d419f543793bb01c51
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision 44736fc4e8b7b220f25afc685739f79c263b7d99)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision 7b269f76914972e68ebdd5d419f543793bb01c51)
@@ -820,9 +820,7 @@
     }
     # todo needed?
     set slot [::xotcl::current object]::slot
-    if {[llength arglist] < 1} {
-      if {![::xotcl::objectproperty $slot object]} {::xotcl2::Object create $slot}
-    }
+    if {![::xotcl::objectproperty $slot object]} {::xotcl2::Object create $slot}
     ::xotcl::setvar $slot __parameter $arglist
   }
 
Index: generic/xotcl.c
===================================================================
diff -u -rb9eae4f9d548939af915f0f27141389d18172485 -r7b269f76914972e68ebdd5d419f543793bb01c51
--- generic/xotcl.c	(.../xotcl.c)	(revision b9eae4f9d548939af915f0f27141389d18172485)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 7b269f76914972e68ebdd5d419f543793bb01c51)
@@ -840,7 +840,7 @@
 #if !defined(NDEBUG)
     memset(object, 0, sizeof(XOTclObject));
 #endif
-    /*fprintf(stderr, "CKFREE obj %p\n", obj);*/
+    /*fprintf(stderr, "CKFREE obj %p\n", object);*/
     ckfree((char *) object);
   }
 }
@@ -1348,7 +1348,7 @@
   if (object->flags & XOTCL_DESTROY_CALLED)
     return TCL_OK;
 
-  PRINTOBJ("callDestroy", obj);
+  PRINTOBJ("callDestroy", object);
 
   /* flag, that destroy was called and invoke the method */
   object->flags |= XOTCL_DESTROY_CALLED;
@@ -1367,7 +1367,7 @@
   }
 
 #ifdef OBJDELETION_TRACE
-  fprintf(stderr, "callDestroyMethod for %p exit\n", obj);
+  fprintf(stderr, "callDestroyMethod for %p exit\n", object);
 #endif
   return result;
 }
@@ -3887,7 +3887,7 @@
 
   /* ensure that the mixin order is not invalid, otherwise compute order */
   assert(object->flags & XOTCL_MIXIN_ORDER_VALID);
-  /*MixinComputeDefined(interp, obj);*/
+  /*MixinComputeDefined(interp, object);*/
   cmdList = seekCurrent(object->mixinStack->currentCmdPtr, object->mixinOrder);
   RUNTIME_STATE(interp)->cmdPtr = cmdList ? cmdList->cmdPtr : NULL;
 
@@ -4784,7 +4784,7 @@
   *currentCmd = NULL;
 
   /* Ensure that the filter order is not invalid, otherwise compute order
-     FilterComputeDefined(interp, obj);
+     FilterComputeDefined(interp, object);
   */
   assert(object->flags & XOTCL_FILTER_ORDER_VALID);
   cmdList = seekCurrent(object->filterStack->currentCmdPtr, object->filterOrder);
@@ -5377,7 +5377,7 @@
   int rc;
 
   /*fprintf(stderr, "---- FinalizeProcMethod result %d, csc %p, pcPtr %p, obj %p\n",
-    result, cscPtr, pcPtr, obj);*/
+    result, cscPtr, pcPtr, object);*/
 # if defined(TCL85STACK_TRACE)
   fprintf(stderr, "POP  FRAME (implicit)  csc %p obj %s obj refcount %d %d\n",
           cscPtr, objectName(object),
@@ -5450,7 +5450,7 @@
      * seek cmd in obj's filterOrder
      */
     assert(object->flags & XOTCL_FILTER_ORDER_VALID);
-    /* otherwise: FilterComputeDefined(interp, obj);*/
+    /* otherwise: FilterComputeDefined(interp, object);*/
 
     for (cmdList = object->filterOrder; cmdList && cmdList->cmdPtr != cmdPtr; cmdList = cmdList->nextPtr);
 
@@ -7179,7 +7179,7 @@
    *  Next in Mixins
    */
   assert(objflags & XOTCL_MIXIN_ORDER_VALID);
-  /* otherwise: MixinComputeDefined(interp, obj); */
+  /* otherwise: MixinComputeDefined(interp, object); */
 
   /*fprintf(stderr, "nextsearch: mixinorder valid %d stack=%p\n",
     obj->flags & XOTCL_MIXIN_ORDER_VALID, obj->mixinStack);*/
@@ -10717,7 +10717,7 @@
   Tcl_Obj *obj = Tcl_GetVar2Ex(interp, XOTclGlobalStrings[XOTE_ALIAS_ARRAY], 
                                AliasIndex(dsPtr, cmdName, methodName, withPer_object), 
                                TCL_GLOBAL_ONLY);
-  /*fprintf(stderr, "aliasGet returns %p\n", obj);*/
+  /*fprintf(stderr, "aliasGet returns %p\n", object);*/
   Tcl_DStringFree(dsPtr);
   return obj;
 }
@@ -12125,7 +12125,7 @@
       if (FilterAdd(interp, &objopt->filters, ov[i], object, 0) != TCL_OK)
         return TCL_ERROR;
     }
-    /*FilterComputeDefined(interp, obj);*/
+    /*FilterComputeDefined(interp, object);*/
     break;
 
   case RelationtypeClass_mixinIdx:
@@ -12196,7 +12196,7 @@
   XOTclCallStackContent *cscPtr;
   int result = TCL_OK;
 
-  /*fprintf(stderr, "getSelfObj returns %p\n", obj); tcl85showStack(interp);*/
+  /*fprintf(stderr, "getSelfObj returns %p\n", object); tcl85showStack(interp);*/
 
   if (selfoption == 0 || selfoption == SelfoptionObjectIdx) {
     if (object) {
@@ -14355,6 +14355,8 @@
   Tcl_Interp *interp = (Tcl_Interp *)clientData;
   int i, flags;
 
+  /*fprintf(stderr, "ExitHandler\n");*/
+
   /*
    * Don't use exit handler, if the interpreter is alread destroyed.
    * Call to exit handler comes after freeing namespaces, commands, etc.
Index: generic/xotcl.h
===================================================================
diff -u -r77f3d38dc0d7443a438402828006f89d3f5b8eba -r7b269f76914972e68ebdd5d419f543793bb01c51
--- generic/xotcl.h	(.../xotcl.h)	(revision 77f3d38dc0d7443a438402828006f89d3f5b8eba)
+++ generic/xotcl.h	(.../xotcl.h)	(revision 7b269f76914972e68ebdd5d419f543793bb01c51)
@@ -79,6 +79,7 @@
 #define CMD_RESOLVER_TRACE 1
 */
 
+
 /* some features
 #define TCL85STACK 1
 #define CANONICAL_ARGS 1
Index: library/serialize/Serializer.xotcl
===================================================================
diff -u -r9ae7c34e49e4ac28083909acb8d39964e51c42ec -r7b269f76914972e68ebdd5d419f543793bb01c51
--- library/serialize/Serializer.xotcl	(.../Serializer.xotcl)	(revision 9ae7c34e49e4ac28083909acb8d39964e51c42ec)
+++ library/serialize/Serializer.xotcl	(.../Serializer.xotcl)	(revision 7b269f76914972e68ebdd5d419f543793bb01c51)
@@ -536,7 +536,7 @@
           $s warn "Method does not exist: $o $p $m"
           continue
         }
-        append methods($o) [:serializeExportedMethod $o $p $m]
+        append methods($o) [:serializeExportedMethod $o $p $m]\n
       }
       foreach o [array names methods] {set ($o) 1}
       foreach o [list ${:rootClass} ${:rootMetaClass}] {