The following script causes a segmentation fault:

<code><verbatim>
::oo::objdefine oo::object {
	method m1 {} [string map {a b} hello]
}

oo::copy oo::object obj1
obj1 m1


This is a regression cause by the fix to bug 3609693. In
TclOOMethod.c/CloneProcedureMethod, <code>TclFreeIntRep(bodyObj)</code> occurs
on a Tcl_Obj that has no string representation.  The solutions is to call
<code>Tcl_GetString(bodyObj)</code> first.