[ic] Intermittent error

[interchange-users@icdevgroup.org]

This doesn't happen all the time but enough to annoy the hell out of someone.
some times when I 
1. log in
2. Enter a new item into the catalog
3. check out of my shopping cart

I get this error
http://www.consolidatedbp.com/pdf/error.jpg

An this error in the error log
216.39.48.209 r4ZecWgr:216.39.48.209 - [31/January/2003:11:28:58 -0500] sales /cgi-bin/sales/L1518X5.html Safe: syntax error at (eval 482) line 13, near "x   push"
> 
> 
>   my @out;
>   my $ref;
>   my $db;
>   delete $Scratch->{promo_codes};
>   my $date = $Tag->time( { body => '%Y%m%d' } );
>   $ref = $Tmp->{main} or return;
>   for(@$ref) {
>    my $line = $_;
>    push(@out, $line->[0]), next if ! $line->[1];
>    next if $line->[2] gt $date;
>    next if $line->[3] lt $date;
> x   push @out, $line->[0];
>   }
>   $Scratch->{promo_codes} = join(' ', @out);
>   return;
>  
> 

this site was originally started to be developed by the web hosting company. Even though they were the ones that started with interchange and have had this error right along they have not been very helpful in getting rid of it.  Please help if you can.