Dear All, Here it is: function void fun1001 (list alist) print "" end function function void spoil100(bundle *b) fun1001(b.xlist) end function function void fu(string name) catch eval @name end function nulldata 20 set seed 13 y = normal() x1 = normal() x2 = normal() bundle bu list bu.xlist = x1 x2 fu("x1") fu("x2") fu("y") spoil100(&bu) fu("x1") fu("x2") fu("y") Hopefully, this time list components of bundles will not be excluded Oleh