### Datestamp if desired:
	# ------------------------------------------------
	my $Sec;
	my $Min;
	my $Hour;
	my $MDay;
	my $Mon;
	my $Year;
	my $WDay;
	my $YDay;
	my $IsDst;

($Sec,$Min,$Hour,$MDay,$Mon,$Year,$WDay,$YDay,$IsDst)=localtime(time); 
	# ------------------------------------------------
    my $ds_wanted    = $params{Datestamp};
    my $ds_defaulted = ($is_top and !exists($params{Datestamp}));
    if (($ds_wanted or $ds_defaulted) and !exists($params{Date})) {
	my ($u_wdy, $u_mon, $u_mdy, $u_time, $u_y4) =
	    split /\s+/, gmtime()."";   ### should be non-locale-dependent

	$u_time = "$Hour:$Min:$Sec"; # now fix the time 

	my $date = "$u_wdy, $u_mdy $u_mon $u_y4 $u_time UT";
		$self->add("date", $date);
    }