--- trunk/webwork/system/courseScripts/AnswerHash.pm	2001/11/17 18:40:41	261
+++ trunk/webwork/system/courseScripts/AnswerHash.pm	2001/12/21 04:10:11	262
@@ -281,6 +281,8 @@
 sub evaluate {
 	my $self 		= 	shift;
 	$self->get_student_answer(shift @_);
+	$self->{rh_ans}->{error_flag}=undef;  #reset the error flags in case 
+	$self->{rh_ans}->{done}=undef;        #the answer evaluator is called twice
 	my $rh_ans    =   $self ->{rh_ans};
     warn "<H3> Answer evaluator information: </H3>\n" if defined($self->{debug}) and $self->{debug}>0;
 	my @prefilters	= @{$self -> {pre_filters}};