--- loncom/homework/templates/extreme.problem	2010/06/13 22:56:55	1.1
+++ loncom/homework/templates/extreme.problem	2010/06/14 11:34:20	1.2
@@ -71,14 +71,15 @@ hasextreme:is(at(diff(y(x),x,1),x=LONCAP
 isrightkind:false;
 k:0;
 s:0;
-if hasextreme then for i:2 while s=0 do (s:at(diff(y(x),x,i),x=LONCAPALIST[1]),k:i);
+if hasextreme then for i:2 while s=0 and not is(diff(y(x),x,i)=0) do (s:at(diff(y(x),x,i),x=LONCAPALIST[1]),k:i);
 if evenp(k) and is(LONCAPALIST[2]*s>0) then isrightkind:true;
 hasextreme and isrightkind;</answer>
     <textline readonly="no" size="50" />
 </mathresponse>
 </part>
 <part id="2">
-<script type="loncapa/perl">$value=&cas('maxima',"float(at($example,x=$location))");</script>
+<script type="loncapa/perl">$previous=&maxima_cas_formula_fix($example);
+$value=&cas('maxima',"float(at($previous,x=$location))");</script>
 <startouttext />
 What is the value of your function at this $text?
 <endouttext />