--- trunk/pg/lib/Value/AnswerChecker.pm	2007/05/22 17:46:52	4963
+++ trunk/pg/lib/Value/AnswerChecker.pm	2007/05/22 18:02:40	4964
@@ -1361,9 +1361,9 @@
   my $ordered = $ans->{ordered};
   my $showTypeWarnings = $ans->{showTypeWarnings} && !$ans->{isPreview};
   my $typeMatch = $ans->{typeMatch};
-  my $extra = $ans->{extra} ||
-              (Value::isValue($typeMatch) ? $typeMatch: $ans->{firstElement}) ||
-              "Value::List";
+  my $extra = defined($ans->{extra}) ? $ans->{extra} :
+              (Value::isValue($typeMatch) ? $typeMatch: $ans->{firstElement});
+  $extra = Value::List->new() unless defined($extra);
   my $showHints = getOption($ans,'showHints') && !$ans->{isPreview};
   my $error = $$Value::context->{error};
   my $score = 0; my @errors; my $i = 0;