tip478 problems

basra:clay seandeelywoods$ tclsh clay.test 
- tcllib::testutils 1.2
* clay 0.6
::oo::Obj91:: oo ::delegate does not refer to an object
    while executing
"::oo::define [::oo::DelegateName $cls] method $name $args $body"
    (procedure "::oo::define::classmethod" line 8)
    invoked from within
"class_method working {} {
    return {Works}
  }"
    (in namespace eval "::clay::define" script line 2)
    invoked from within
"namespace eval ${namespace}::define [lindex $args 0]"
    (procedure "::oo::dialect::Define" line 5)
    invoked from within
"::oo::dialect::Define ::clay $class {*}${args}"
    (procedure "::clay::define" line 10)
    invoked from within
"$define [self] $definitionScript"
    (class "::oo::dialect::MotherOfAllMetaClasses" constructor line 5)
    invoked from within
"next $name ::clay::define $definitionScript"
    (object "::clay::class" method "create" line 1)
    invoked from within
"clay::class create WidgetClass {
  class_method working {} {
    return {Works}
  }

  class_method unknown args {
    set tkpath [lindex $args 0]
   ..."
    (file "clay.test" line 1281)