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
   }