See http://people.fishpool.fi/~setok/proj/Selfish/ for preliminary implementation.
MJ -- Really nice work, after playing with it a bit, it really shows the power and ease of prototype based OO. However a [super] call is missing this will make inheritance less usefull than ik can be. See also self.
MJ -- Is this a bug in slot lookup?
% set a [selfish::baseObject clone]
::selfish::0
% ::selfish::slot ::selfish::baseObject test {} {puts test}
foo
% $a test
SelfishError exception thrown: Could not find slot test