oo::class create Tuple {
    method fixup {} {
	if {[incr ::count] == 1} {
	    my foo
	}
    }

    method foo {} {
	# comment the next line to avoid the crash
	my fixup
	puts stderr [info frame -1]
    }
}

set count 0
[Tuple new] fixup
