Index: generic/predefined.h =================================================================== diff -u -rf0260303acd3dd10018bbcbb28fc5d954dca2dc6 -re591522c92d208c4942888e632546262fd7641ad --- generic/predefined.h (.../predefined.h) (revision f0260303acd3dd10018bbcbb28fc5d954dca2dc6) +++ generic/predefined.h (.../predefined.h) (revision e591522c92d208c4942888e632546262fd7641ad) @@ -203,7 +203,9 @@ "{elementtype ::xotcl2::Class}}\n" "::xotcl::relation ::xotcl::InfoSlot superclass ::xotcl::Slot\n" "::xotcl::InfoSlot method get {obj -per-object:switch prop} {\n" -"$obj info {*}[expr {${per-object} ? \"-per-object\" : \"\"}] $prop}\n" +"if {[::xotcl::is $obj type ::xotcl2::Object]} {\n" +"$obj info {*}[expr {${per-object} ? \"-per-object\" : \"\"}] $prop} else {\n" +"$obj info $prop}}\n" "::xotcl::InfoSlot method add {obj -per-object:switch prop value {pos 0}} {\n" "puts stderr infoslot-add-[self args]\n" "if {![set .multivalued]} {\n" @@ -231,6 +233,8 @@ "::xotcl::relation ::xotcl::InterceptorSlot superclass ::xotcl::InfoSlot\n" "::xotcl::alias ::xotcl::InterceptorSlot set ::xotcl::relation ;# for backwards compatibility\n" "::xotcl::alias ::xotcl::InterceptorSlot assign ::xotcl::relation\n" +"::xotcl::InterceptorSlot method get {obj -per-object:switch prop} {\n" +"::xotcl::relation $obj {*}[expr {${per-object} ? \"-per-object\" : \"\"}] $prop}\n" "::xotcl::InterceptorSlot method add {obj -per-object:switch prop value {pos 0}} {\n" "puts stderr interceptorslot-add-obj=$obj,per-object=${per-object},prop=$prop,value=$value,pos=$pos\n" "if {![set .multivalued]} {\n"