--- loncom/homework/default_homework.lcpm	2001/08/22 21:04:58	1.34
+++ loncom/homework/default_homework.lcpm	2001/08/23 16:44:22	1.36
@@ -16,7 +16,7 @@ sub caparesponse_check {
   #not properly used yet: calc
   #not to be used: $ans_fmt
   my ($answer,$type,$tol,$sig,$ans_fmt,$unit,$calc) = 
-	eval $expr.';return ($answer,$type,$tol,$sig,$ans_fmt,$unit,$calc);';
+	eval $_[1].';return ($answer,$type,$tol,$sig,$ans_fmt,$unit,$calc);';
 
   my $tol_type=''; # gets it's value from whether tol has a % or not done
   my $sig_lbound=''; #done