sub WriteLine {
	my $self = shift;
	my $it = $self->OStream->WriteLine($_[0]);
		$self->Trace(_CallerStr($it));
	return $it;
};
		
sub Select {
	my $self = shift;
	my $it = $self->OStream->Select($_[0]);
		$self->Trace(_CallerStr($it)); 
	return $it;
};

sub Add {
	my $self = shift;
	my $it = $self->OStream->Add($_[0]);
		$self->Trace(_CallerStr($it)); 
	return $it;
};