Index: generic/predefined.xotcl
===================================================================
diff -u -rb9eae4f9d548939af915f0f27141389d18172485 -r9ae7c34e49e4ac28083909acb8d39964e51c42ec
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision b9eae4f9d548939af915f0f27141389d18172485)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision 9ae7c34e49e4ac28083909acb8d39964e51c42ec)
@@ -451,7 +451,7 @@
       if {[string match __* $m]} continue
       lappend methods $m
     }
-    error "Method '$method' unknown for slot [[::xotcl::current object]; valid are: {[lsort $methods]]}"
+    error "Method '$method' unknown for slot [::xotcl::current object]; valid are: {[lsort $methods]}"
   }
   
   ::xotcl::ObjectParameterSlot public method destroy {} {
@@ -761,6 +761,7 @@
     :protected method init args {::xotcl::next; :optimize}
     :public method optimize {} {
       #puts stderr OPTIMIZER-[info exists :incremental]
+      if {![info exists :methodname]} {return}
       set object [expr {${:per-object} ? {object} : {}}]
       if {${:per-object}} {
         set perObject -per-object
@@ -818,7 +819,7 @@
       ::xotcl::Attribute createFromParameterSyntax [::xotcl::current object] {*}$arg
     }
     # todo needed?
-    ::xotcl::setvar [::xotcl::current object]::slot __parameter $arglist
+    #::xotcl::setvar [::xotcl::current object]::slot __parameter $arglist
   }
 
   ##################################################################