Index: tests/forwardtest.xotcl
===================================================================
diff -u -r666f7ad2cb2562f3d62fc9aea54efb9b0826f6b0 -r806b88973de6c75ab4cb2d796d0ddf382ed1ede7
--- tests/forwardtest.xotcl	(.../forwardtest.xotcl)	(revision 666f7ad2cb2562f3d62fc9aea54efb9b0826f6b0)
+++ tests/forwardtest.xotcl	(.../forwardtest.xotcl)	(revision 806b88973de6c75ab4cb2d796d0ddf382ed1ede7)
@@ -67,7 +67,7 @@
 ? {catch {obj Mixin}} 1
 
 
-obj forward Mixin -default {Getter Setter} mixin %1  %self
+obj forward Mixin mixin "%1 {Getter Setter}" %self
 ? {obj Mixin add M1} [list ::mixin add ::obj M1]
 ? {obj Mixin M1} [list ::mixin Setter ::obj M1]
 ? {obj Mixin} [list ::mixin Getter ::obj]
@@ -123,7 +123,7 @@
 
 # check introspection for objects
 ? {lsort [obj info forward]} "Mixin addOne foo i1"
-? {obj info forward -definition Mixin} "-default {Getter Setter} mixin %1 %self"
+? {obj info forward -definition Mixin} "mixin {%1 {Getter Setter}} %self"
 ? {obj info forward -definition addOne} "expr 1 +"
 ? {obj info forward -definition foo} "target %proc %self %%self %%p"
 ? {obj info forward -definition i1} "-objscope ::incr x"