Index: generic/predefined.xotcl
===================================================================
diff -u -r9ae7c34e49e4ac28083909acb8d39964e51c42ec -r44736fc4e8b7b220f25afc685739f79c263b7d99
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision 9ae7c34e49e4ac28083909acb8d39964e51c42ec)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision 44736fc4e8b7b220f25afc685739f79c263b7d99)
@@ -819,7 +819,11 @@
       ::xotcl::Attribute createFromParameterSyntax [::xotcl::current object] {*}$arg
     }
     # todo needed?
-    #::xotcl::setvar [::xotcl::current object]::slot __parameter $arglist
+    set slot [::xotcl::current object]::slot
+    if {[llength arglist] < 1} {
+      if {![::xotcl::objectproperty $slot object]} {::xotcl2::Object create $slot}
+    }
+    ::xotcl::setvar $slot __parameter $arglist
   }
 
   ##################################################################