[Xotcl] Problem with per-object mixins?

[Sheik Yussuff]

Consider the following program fragment:(Win 98 ver 0.85) where:
1. X has subclasses B and C
2. X has instproc m
3. object a mixes in {C B}
4. message p sent to object a(see code below)

The code produces as answer:
   method p of A
   method m
   method m of A

I expected:
   method p of A
   method m
   method m
   method m of A

Apparently only the method m inherited by C is executed 
while the method m inherited by B is not!!
Any help to clarify this situation is appreciated.

Thanks.

Regards,
--sheik
-----------------------------------------------------------------
# Code to illustrate above.

Class X
X instproc m args {
  puts "method m"
  next 
}

Class A 
A instproc m args {
  puts "method m of A"
  next
}

A instproc p args {
  puts "method p of A"
  [self] mixin {C B}
  [self] m 
}

Class B  -superclass X

Class C  -superclass X


A a
a p