Index: library/xotcl/library/xotcl2.tcl =================================================================== diff -u -reb758924a74f48512c98a40a539ab0c4e5a35de9 -rdd3a608d2b00922bb0be67b7266f9c01eb04342c --- library/xotcl/library/xotcl2.tcl (.../xotcl2.tcl) (revision eb758924a74f48512c98a40a539ab0c4e5a35de9) +++ library/xotcl/library/xotcl2.tcl (.../xotcl2.tcl) (revision dd3a608d2b00922bb0be67b7266f9c01eb04342c) @@ -917,9 +917,11 @@ error "invalid method type '$methtype', \ must be either 'proc', 'instproc' or 'method'." } + set arglist2 $arglist + regsub -all {\"} $arglist {\\"} arglist2 ;" :$methtype $methname $arglist " if {!\[::xotcl::self isnextcall\]} { - error \"Abstract method $methname $arglist called\" + error \"Abstract method $methname $arglist2 called\" } else {::xotcl::next} " }