Index: library/xotcl/library/xotcl2.tcl =================================================================== diff -u -rdd3a608d2b00922bb0be67b7266f9c01eb04342c -rc8ed7bfa2eb897f6c3664ac0e7dab6e37a646916 --- library/xotcl/library/xotcl2.tcl (.../xotcl2.tcl) (revision dd3a608d2b00922bb0be67b7266f9c01eb04342c) +++ library/xotcl/library/xotcl2.tcl (.../xotcl2.tcl) (revision c8ed7bfa2eb897f6c3664ac0e7dab6e37a646916) @@ -918,12 +918,13 @@ must be either 'proc', 'instproc' or 'method'." } set arglist2 $arglist - regsub -all {\"} $arglist {\\"} arglist2 ;" + regsub -all {\"} $arglist {\\"} arglist2 :$methtype $methname $arglist " if {!\[::xotcl::self isnextcall\]} { error \"Abstract method $methname $arglist2 called\" } else {::xotcl::next} " + # balance " for emacs syntax highlighter } # support for XOTcl specific convenience routines