--- trunk/webwork-modperl/lib/WeBWorK/PG/Translator.pm	2003/06/11 02:43:42	1115
+++ trunk/webwork-modperl/lib/WeBWorK/PG/Translator.pm	2003/06/11 03:59:00	1116
@@ -887,7 +887,7 @@
 			$rh_ans_evaluation_result = $self->{safe} ->reval( '&{ $rf_fun }($temp_ans)' ) ;
 			warn "Error in PGtranslator.pm::process_answers: Answer $ans_name:<BR>\n $@\n" if $@;
 		} elsif (ref($rf_fun) eq 'AnswerEvaluator')   {
-			$rh_ans_evaluation_result = $self->{safe} ->reval('$rf_fun->evaluate($temp_ans)');
+			$rh_ans_evaluation_result = $self->{safe} ->reval('$rf_fun->evaluate($temp_ans, ans_label => \''.$ans_name.'\')');
 			warn "Error in PGtranslator.pm::process_answers: Answer $ans_name:<BR>\n $@\n" if $@;
 			warn "Evaluation error: Answer $ans_name:<BR>\n", 
 				$rh_ans_evaluation_result->error_flag(), " :: ",