Itcl - the [incr Tcl] extension

itcl::class C {
  proc cheshire {} {
    itcl::body ::C::cheshire {} {}
  }
  constructor {args} {
    cheshire
  }
}
while 1 {
  itcl::delete object [C #auto]
}

This started segfaulting with checkin

http://core.tcl.tk/itcl/ci/a4b7fff898598267?sbs=1

Before that it just failed, which was also wrong:

Itcl 4.0.4
member function "::C::cheshire" is not defined and cannot be autoloaded
    while executing
"cheshire"
    while constructing object "::c1" in ::C::constructor (body line 3)
    invoked from within
"::itcl::parser::handleClass C ::C #auto"
    invoked from within
"C #auto"
    ("while" body line 2)
    invoked from within
"while 1 {
  itcl::delete object [C #auto]
}"
    (file "/home/dgp/cheshire.tcl" line 12)

At least part of the problem here is that
imPtr->codePtr gets a new value in the
middle of the evaluation of imPtr.  This
causes the Release in the After to be on
a different pointer than the Preserve
in the CheckCall.  Things get out of balance,
and that leads to crashes and memory trouble.

Removed the Preserve/Release pairs that were going wrong.

The reference in the ItclMemberFunc ought to be enough.