Tcl Source Code

With an interpreter compiled with --enable-symbols=all, the following script results in a segmentation fault:

oo::class create obj1
oo::objdefine obj1 {
	method deleted args {}
}
oo::copy obj1 obj2
oo::objdefine obj2 {
	mixin obj2 obj1
}
trace add command obj2 delete [list obj2 delete]
rename obj1 {}