Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -r85ee1fdb043ed3f82fd272cc004c476c40861fdb -r91007cd5fdd2f8f125fdd433ef7701574e8167d2
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 85ee1fdb043ed3f82fd272cc004c476c40861fdb)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 91007cd5fdd2f8f125fdd433ef7701574e8167d2)
@@ -1014,8 +1014,7 @@
     :property -accessor public multivalued {
       :public object method assign {object property value} {
 	set mClass [expr {$value ? "0..n" : "1..1"}]
-	$object incremental $value
-	$object multiplicity $mClass
+	$object configure -incremental $value -multiplicity $mClass
       }
       :public object method get {object property} {
 	return [$object eval [list :isMultivalued]]
@@ -1043,7 +1042,7 @@
 	  -per-object=${:per-object} \
 	  $name \
 	  ${:manager} \
-	  [list %1 [${:manager} defaultmethods]] %self \
+	  [list %1 [${:manager} cget -defaultmethods]] %self \
 	  ${:forwardername}
     }