itcl::class C {
    inherit itk::Widget

    itk_option define -bar bar Bar 2
    protected method foo {} {puts FOO}
    constructor args {
        itk_initialize {*}$args
    }
}
itcl::configbody C::bar {
    foo
}
C .c
.c configure -bar 2


FOO
Error in startup script: ItclObjectCmd cannot get context object (NULL)
    while executing
"foo"
    (while configuring option "-bar" for widget "::.c")
    invoked from within
".c configure -bar 2"
    (file line 15)