Index: generic/predefined.xotcl
===================================================================
diff -u -r033a6b832c7cc7d99894422d63d9ff944c09c35d -rf0260303acd3dd10018bbcbb28fc5d954dca2dc6
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision 033a6b832c7cc7d99894422d63d9ff944c09c35d)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision f0260303acd3dd10018bbcbb28fc5d954dca2dc6)
@@ -404,7 +404,9 @@
   {elementtype ::xotcl2::Class}
 }
 ::xotcl::relation ::xotcl::InfoSlot superclass ::xotcl::Slot
-::xotcl::InfoSlot method get {obj -per-object:switch prop} {$obj info $prop}
+::xotcl::InfoSlot method get {obj -per-object:switch prop} {
+  $obj info {*}[expr {${per-object} ? "-per-object" : ""}] $prop
+}
 ::xotcl::InfoSlot method add {obj -per-object:switch prop value {pos 0}} {
   puts stderr infoslot-add-[self args]
   if {![set .multivalued]} {