Index: generic/predefined.h =================================================================== diff -u -r033a6b832c7cc7d99894422d63d9ff944c09c35d -rf0260303acd3dd10018bbcbb28fc5d954dca2dc6 --- generic/predefined.h (.../predefined.h) (revision 033a6b832c7cc7d99894422d63d9ff944c09c35d) +++ generic/predefined.h (.../predefined.h) (revision f0260303acd3dd10018bbcbb28fc5d954dca2dc6) @@ -202,7 +202,8 @@ "{multivalued true}\n" "{elementtype ::xotcl2::Class}}\n" "::xotcl::relation ::xotcl::InfoSlot superclass ::xotcl::Slot\n" -"::xotcl::InfoSlot method get {obj -per-object:switch prop} {$obj info $prop}\n" +"::xotcl::InfoSlot method get {obj -per-object:switch prop} {\n" +"$obj info {*}[expr {${per-object} ? \"-per-object\" : \"\"}] $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"