Index: generic/predefined.h =================================================================== diff -u -r044952af84b087821f5bd68570b84b8e3e000851 -rdfcec445642ff230e91b3b087322ca02a2cdcceb --- generic/predefined.h (.../predefined.h) (revision 044952af84b087821f5bd68570b84b8e3e000851) +++ generic/predefined.h (.../predefined.h) (revision dfcec445642ff230e91b3b087322ca02a2cdcceb) @@ -390,13 +390,13 @@ "unset required}\n" "if {$l == 1} {\n" "eval $cmd} elseif {$l == 2} {\n" -"lappend cmd [list -default [lindex $arg 1]]\n" +"lappend cmd -default [lindex $arg 1]\n" "eval $cmd} elseif {$l == 3 && [lindex $arg 1] eq \"-default\"} {\n" -"lappend cmd [list -default [lindex $arg 2]]\n" +"lappend cmd -default [lindex $arg 2]\n" "eval $cmd} else {\n" "set paramstring [string range $arg [expr {[string length $name]+1}] end]\n" "if {[string match {[$\\[]*} $paramstring]} {\n" -"lappend cmd [list -default $paramstring]\n" +"lappend cmd -default $paramstring\n" "eval $cmd\n" "continue}\n" "set po ::xotcl::Class::Parameter\n"