diff --git a/Contrib/CCCS/AlgebraicLiteracy/IA_2.4/OpenStax_IA_2.4_264.pg b/Contrib/CCCS/AlgebraicLiteracy/IA_2.4/OpenStax_IA_2.4_264.pg
index 7cccc0fb4b..1505264084 100644
--- a/Contrib/CCCS/AlgebraicLiteracy/IA_2.4/OpenStax_IA_2.4_264.pg
+++ b/Contrib/CCCS/AlgebraicLiteracy/IA_2.4/OpenStax_IA_2.4_264.pg
@@ -36,7 +36,7 @@ $showPartialCorrectAnswers = 1;
 Context("Numeric");
 
 do{$t = random(23000,27000,100);
-$f = Compute("545000-21.48*$t")->reduce;
+$f = Compute(".32*$t")->reduce;
 $n = $t-$f;}
 until($f>0 and $n>0);
 
diff --git a/Contrib/CCCS/AlgebraicLiteracy/IA_7.1/OpenStax_IA_7.1_39.pg b/Contrib/CCCS/AlgebraicLiteracy/IA_7.1/OpenStax_IA_7.1_39.pg
index f1ae87f6f1..7ec425cc36 100644
--- a/Contrib/CCCS/AlgebraicLiteracy/IA_7.1/OpenStax_IA_7.1_39.pg
+++ b/Contrib/CCCS/AlgebraicLiteracy/IA_7.1/OpenStax_IA_7.1_39.pg
@@ -36,9 +36,10 @@ Context()->variables->are($var =>'Real');
 #Problem is of the form:
 #(x-a)^2/(x^2 - a^2) TIMES (x+a)^2/((x-a)(bx+c))
 #
-$a = random(2,10);
+do{$a = random(2,10);
 $b = random(2, 6);
-$c = non_zero_random(-7, 7);
+$c = non_zero_random(-7, 7);}
+until($c != $b*$a); #to prevent it from simplifying to a constant
 
 #Question
 $g1 = Formula("($var^2 - 2*$a*$var + $a**2)/($var^2 - $a**2)")->reduce;
diff --git a/Contrib/CCCS/AlgebraicLiteracy/IA_8.4/OpenStax_IA_8.4_191.pg b/Contrib/CCCS/AlgebraicLiteracy/IA_8.4/OpenStax_IA_8.4_191.pg
index ee85f60e75..a6ce4782c6 100644
--- a/Contrib/CCCS/AlgebraicLiteracy/IA_8.4/OpenStax_IA_8.4_191.pg
+++ b/Contrib/CCCS/AlgebraicLiteracy/IA_8.4/OpenStax_IA_8.4_191.pg
@@ -34,7 +34,7 @@ $cA = $inA*$mA;
 
 #Part B: Cube Roots
 $outB = list_random(2,3,5);
-$inB = random(2, 5);
+$inB = list_random(2,3,5);
 $rad1B = $outB**2;
 $rad2B = $outB*$inB;
 $nB = random(2, 10);
@@ -51,7 +51,7 @@ $ans2 = Formula("$nB*root(3, $rad1B) + $outB*root(3, $inB)");
 
 BEGIN_PGML
 
-Multiply and Simplify.
+Multiply and simplify.
 
 
   (a)  [`` \sqrt{[$inA]}  ( [$nA] + [$mA]\sqrt{[$inA]}) = ``] [_____________]{$ans1->cmp(mathQuillOpts => "rootsAreExponents: false")}
diff --git a/Contrib/CCCS/CalculusTwo/04.3/CCD_CCCS_Openstax_Calc2_C2-2016-002_4_3_124.pg b/Contrib/CCCS/CalculusTwo/04.3/CCD_CCCS_Openstax_Calc2_C2-2016-002_4_3_124.pg
index e7ce3ba53d..fb79de1a66 100644
--- a/Contrib/CCCS/CalculusTwo/04.3/CCD_CCCS_Openstax_Calc2_C2-2016-002_4_3_124.pg
+++ b/Contrib/CCCS/CalculusTwo/04.3/CCD_CCCS_Openstax_Calc2_C2-2016-002_4_3_124.pg
@@ -48,9 +48,7 @@ Context()->variables->add(C=>"Real");
 
 $k=random(0,4);
 $f=Formula("tan(y)x^($k)")->reduce;
-$answer=Formula("asin(C*e^(x^($k+1)/($k+1)))")->reduce;
-
-####I may need these limits->with(limits=>[[-0.5,0.5],[0,0.2],[1,3]])->reduce;
+$answer=Formula("asin(C*e^(x^($k+1)/($k+1)))")->with(limits=>[[-0.5,0.5],[0,0.2],[1,3]])->reduce;
 
 
 ###########################
diff --git a/Contrib/CCCS/CalculusTwo/06.2/CCD_CCCS_Openstax_Calc2_C1-2016-002_6_2_89.pg b/Contrib/CCCS/CalculusTwo/06.2/CCD_CCCS_Openstax_Calc2_C1-2016-002_6_2_89.pg
index 5f36908c90..7bc50e3588 100644
--- a/Contrib/CCCS/CalculusTwo/06.2/CCD_CCCS_Openstax_Calc2_C1-2016-002_6_2_89.pg
+++ b/Contrib/CCCS/CalculusTwo/06.2/CCD_CCCS_Openstax_Calc2_C1-2016-002_6_2_89.pg
@@ -45,7 +45,7 @@ $summ1 = Compute("((-1)^n)*(2*n)*(x^(2*n-1))")->reduce;
 $f = Compute("(2*x)/[(1+(x^2))^2]")->reduce;
 
 ##antiderivative of $f
- $int_f = Compute("-1/(1+(x^2))")->reduce; 
+ $int_f = Compute("1/(1+(x^2))")->reduce; 
 
 ##answer
 $ans = Compute("( (-1)^(n)*(x^(2*n)) )")->reduce; 
diff --git a/Contrib/CCCS/PreCalculus/6.2/CCD_CCCS_Openstax_AlgTrig_AT-1-001-AS_6_2_31.pg b/Contrib/CCCS/PreCalculus/6.2/CCD_CCCS_Openstax_AlgTrig_AT-1-001-AS_6_2_31.pg
index 74bfda950c..9ab68ba955 100644
--- a/Contrib/CCCS/PreCalculus/6.2/CCD_CCCS_Openstax_AlgTrig_AT-1-001-AS_6_2_31.pg
+++ b/Contrib/CCCS/PreCalculus/6.2/CCD_CCCS_Openstax_AlgTrig_AT-1-001-AS_6_2_31.pg
@@ -43,27 +43,25 @@ $showPartialCorrectAnswers = 1;
 
 
 Context("Numeric");
+Context()->noreduce('(-x)-y','(-x)+y');
 $a = non_zero_random(-8,8,1);
 do{$b = random(2,5,1);} until ($b != $a);
 do{$c= non_zero_random(-5,5,1);} until ($c != $b) and ($c != $a);
 
-if($c > 0)
-{$func = ("$a($b)^(-x) + $c");}
-else
-{$func = ("$a($b)^(-x) $c");};
-
+$func = Formula("$a($b)^(-x) + $c")->reduce;
 
 Context("Numeric");
 if ($a > 0)
 {$ans1 = infinity; $ans2 = $c;}
 else
-{$ans1 = -infinity; $ans2 = -$c;};
+{$ans1 = -infinity; $ans2 = $c;};
 
 #################################
 #  Main text
 
 BEGIN_PGML
 
+
 Describe the end behavior of the function [`f(x) =`] `[$func]`