diff --git a/OpenProblemLibrary/MC/Trigonometry/Angles02.pg b/OpenProblemLibrary/MC/Trigonometry/Angles02.pg
index 251347a7b4..2ed9bc1832 100644
--- a/OpenProblemLibrary/MC/Trigonometry/Angles02.pg
+++ b/OpenProblemLibrary/MC/Trigonometry/Angles02.pg
@@ -19,7 +19,9 @@ DOCUMENT();
 
 loadMacros(
    "PGstandard.pl",    
-   "MathObjects.pl",,"parserMultiAnswer.pl"
+   "MathObjects.pl",
+   "parserMultiAnswer.pl",
+   "PGcourse.pl"
 );
 
 # Print problem number and point value (weight) for the problem
diff --git a/OpenProblemLibrary/NewHampshire/NECAP/grade6/gr6-2005/n6-2005-7s.pg b/OpenProblemLibrary/NewHampshire/NECAP/grade6/gr6-2005/n6-2005-7s.pg
index 59abbf3062..2966edff65 100644
--- a/OpenProblemLibrary/NewHampshire/NECAP/grade6/gr6-2005/n6-2005-7s.pg
+++ b/OpenProblemLibrary/NewHampshire/NECAP/grade6/gr6-2005/n6-2005-7s.pg
@@ -1,4 +1,9 @@
-+DOCUMENT();
+## DBsubject(Geometry)
+## DBchapter(Shapes)
+## DBsection(Properties of shapes)
+## Level(3)
+
+DOCUMENT();
 loadMacros(
   "PGstandard.pl",
   "PGchoicemacros.pl",
@@ -114,10 +119,3 @@ END_SOLUTION
 
 ;
 ENDDOCUMENT();
-
-
-## DBsubject(Geometry)
-## DBchapter(Shapes)
-## DBsection(Properties of shapes)
-## Level(3)
-
diff --git a/OpenProblemLibrary/NewHampshire/NECAP/grade8/gr8-2007/n8-2007-9s.pg b/OpenProblemLibrary/NewHampshire/NECAP/grade8/gr8-2007/n8-2007-9s.pg
index b6c9b32af7..68a3c42aad 100644
--- a/OpenProblemLibrary/NewHampshire/NECAP/grade8/gr8-2007/n8-2007-9s.pg
+++ b/OpenProblemLibrary/NewHampshire/NECAP/grade8/gr8-2007/n8-2007-9s.pg
@@ -1,3 +1,9 @@
+## DBsubject(Arithmetic)
+## DBchapter(Integers)
+## DBsection(Applications)
+## Level(4)
+## MLT(arithmetic_integers_applications_scales)
+
 DOCUMENT();
 loadMacros(
   "PGstandard.pl",
@@ -192,6 +198,9 @@ $radio=new_multiple_choice();
 $radio->qa("How many tetrahedrons weigh the same as one cube? ", "3 ");
 #FIRST PAREN IS QUESTION, SECOND PAREN IS CORRECT ANSWER
 $radio->extra("\(\frac{2}{3}\) ", "\(1\frac{1}{2}\) ", "2  ");
+
+TEXT(beginproblem());
+
 BEGIN_TEXT
 These scales are balanced.
 $BR
@@ -217,11 +226,3 @@ END_SOLUTION
 
 ;
 ENDDOCUMENT();
-
-
-## DBsubject(Arithmetic)
-## DBchapter(Integers)
-## DBsection(Applications)
-## Level(4)
-## MLT(arithmetic_integers_applications_scales)
-
diff --git a/OpenProblemLibrary/PCC/BasicAlgebra/Exponents/exponentDivision115.pg b/OpenProblemLibrary/PCC/BasicAlgebra/Exponents/exponentDivision115.pg
index 193db41cb9..1ec06698eb 100644
--- a/OpenProblemLibrary/PCC/BasicAlgebra/Exponents/exponentDivision115.pg
+++ b/OpenProblemLibrary/PCC/BasicAlgebra/Exponents/exponentDivision115.pg
@@ -32,8 +32,6 @@
 
 DOCUMENT();
 
-DOCUMENT();
-
 loadMacros(
   "PGstandard.pl",
   "MathObjects.pl",
diff --git a/OpenProblemLibrary/PCC/BasicAlgebra/Exponents/exponentDivision125.pg b/OpenProblemLibrary/PCC/BasicAlgebra/Exponents/exponentDivision125.pg
index eeb61ee869..1ea0d738f8 100644
--- a/OpenProblemLibrary/PCC/BasicAlgebra/Exponents/exponentDivision125.pg
+++ b/OpenProblemLibrary/PCC/BasicAlgebra/Exponents/exponentDivision125.pg
@@ -32,8 +32,6 @@
 
 DOCUMENT();
 
-DOCUMENT();
-
 loadMacros(
   "PGstandard.pl",
   "MathObjects.pl",
diff --git a/OpenProblemLibrary/PCC/BasicAlgebra/Exponents/exponentDivision155.pg b/OpenProblemLibrary/PCC/BasicAlgebra/Exponents/exponentDivision155.pg
index b050a84d8e..53f6981c4d 100644
--- a/OpenProblemLibrary/PCC/BasicAlgebra/Exponents/exponentDivision155.pg
+++ b/OpenProblemLibrary/PCC/BasicAlgebra/Exponents/exponentDivision155.pg
@@ -31,8 +31,6 @@
 
 DOCUMENT();
 
-DOCUMENT();
-
 loadMacros(
   "PGstandard.pl",
   "MathObjects.pl",
diff --git a/OpenProblemLibrary/PCC/BasicAlgebra/FunctionBasics/Functions235.pg b/OpenProblemLibrary/PCC/BasicAlgebra/FunctionBasics/Functions235.pg
index e10e5380e8..6acd7914e6 100644
--- a/OpenProblemLibrary/PCC/BasicAlgebra/FunctionBasics/Functions235.pg
+++ b/OpenProblemLibrary/PCC/BasicAlgebra/FunctionBasics/Functions235.pg
@@ -95,66 +95,4 @@ This tells us that [`x`] must be greater than or equal to [`-\frac{[$a]}{[$b]}`]
 END_PGML_SOLUTION
 
 
-ENDDOCUMENT();
-
-
-
-##############################################
-
-DOCUMENT();
-
-loadMacros(
-  "PGstandard.pl",
-  "MathObjects.pl",
-  "PGML.pl",
-  "PCCmacros.pl",
-  "contextFraction.pl",
-  "PGcourse.pl"
-);
-
-TEXT(beginproblem());
-
-##############################################
-
-
-Context("Fraction");
-$a = random(2,10,1);
-$b = random(2,20,1);
-while (gcd($a,$b) != 1) {$b = random(2,20,1);}
-
-$r = Fraction("-$a","$b");
-
-Context("Numeric");
-$f = Formula("sqrt($a+$b x)")->reduce;
-
-Context("Interval");
-$domain = Compute("[$r,inf)");
-
-##############################################
-
-Context()->texStrings;
-
-BEGIN_TEXT
-Find the domain of the function \(f\) where \(f(x)=$f\).
-
-$PAR
-
-The domain is \{ans_rule(20)\} (in interval notation).  
-$BR If you need to enter \(\infty\), you can type $BBOLD INF$EBOLD or $BBOLD INFINITY$EBOLD.  If you need to union two (or more) intervals, use the letter $BBOLD U$EBOLD.  For example, to enter \((-\infty,5)\cup(5,10]\) you can type $BBOLD (-inf,5)U(5,10]$EBOLD.
-
-
-
-
-
-END_TEXT
-
-Context()->normalStrings;
-
-##############################################
-
-ANS($domain->cmp);
-
-
-
-
 ENDDOCUMENT();
diff --git a/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs10.pg b/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs10.pg
index ccf2cc20d2..36e8ec213f 100644
--- a/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs10.pg
+++ b/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs10.pg
@@ -9,6 +9,17 @@
 # ENDDESCRIPTION
 
 ## DBCCSS('6.NS.6')
+## DBsubject(Algebra)
+## DBchapter(Cartesian coordinate system)
+## DBsection(Plotting points)
+## Institution(PCC)
+## Author(Alex Jordan, Carl Yao, Chris Hughes)
+## MLT(id_points_from_graph_1)
+## MLTleader(1)
+## Level(1)
+## MO(1)
+## KEYWORDS('coordinate','ordered pair')
+
 
 ##############################################
 
@@ -146,128 +157,3 @@ END_PGML_SOLUTION
 
 
 ENDDOCUMENT();
-
-
-
-
-# OLD
-# OLD
-# OLD
-# WeBWorK problem written by Carl Yao
-# Portland Community College
-#
-# Identify an ordered pair on a coordinate system. The point could be in 
-# any quadrant, but not on any axis.
-#
-# ENDDESCRIPTION
-
-## DBCCSS('6.NS.6')
-## DBsubject(Algebra)
-## DBchapter(Cartesian coordinate system)
-## DBsection(Plotting points)
-## Institution(PCC)
-## Author(Alex Jordan, Carl Yao, Chris Hughes)
-## MLT(id_points_from_graph_1)
-## MLTleader(1)
-## Level(1)
-## MO(1)
-## KEYWORDS('coordinate','ordered pair')
-
-##############################################
-
-DOCUMENT();
-
-
-##############################################
-
-Context("Numeric");
-$refreshCachedImages=1;
-
-$x = non_zero_random(-8,8,1);
-do {$y = non_zero_random(-8,8,1);} until (abs($x)!=abs($y));
-
-@ar_x = ($x,$x,-$x,-$x);
-@ar_y = ($y,-$y,$y,-$y);
-
-$xmin = -10;
-$xmax = 10;
-$ymin = -10;
-$ymax = 10;
-
-@gr=();
-
-for ($i=0;$i<=3;$i++) {
-   $gr[$i] = init_graph($xmin,$ymin,$xmax,$ymax,
-   axes=>[0,0],
-   grid=>[$xmax-$xmin,$ymax-$ymin],
-   size=>[800,800]
-   );
-
-   $gr[$i]->stamps(closed_circle($ar_x[$i],$ar_y[$i],'blue'));
-}
-
-#randomize choices
-$j=5;
-$p=random(1,3,1);
-do {$q=random(1,3,1);} until ($p!=$q);
-$gr[$j]=$gr[$p];
-$gr[$p]=$gr[$q];
-$gr[$q]=$gr[$j];
-
-@ar_choice = ("A","B","C","D");
-$correct = random(0,3,1);
-$gr[$j]=$gr[$correct];
-$gr[$correct]=$gr[0];
-$gr[0]=$gr[$j];
-
-$radio = RadioButtons(
-  ["A","B","C","D"],
-  "$ar_choice[$correct]", # correct answer
-  order => ["A","B","C","D"],
-);
-
-##############################################
-
-Context()->texStrings;
-
-BEGIN_TEXT
-
-$PAR
-Choose the graph showing \( ($x,$y) \) in the coordinate system.
-$PAR
-Click on a graph to enlarge it.
-$PAR
-
-A. \{ image( insertGraph($gr[0]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-$PAR
-B. \{ image( insertGraph($gr[1]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-$PAR
-C. \{ image( insertGraph($gr[2]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-$PAR
-D. \{ image( insertGraph($gr[3]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-
-$BR
-$BR
-\{ $radio->buttons() \}
-
-
-
-END_TEXT
-
-Context()->normalStrings;
-
-##############################################
-
-ANS( $radio->cmp() );
-
-BEGIN_PGML_SOLUTION
-
-The correct answer is [$radio->correct_ans()].
-
-END_PGML_SOLUTION
-
-ENDDOCUMENT();
diff --git a/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs20.pg b/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs20.pg
index b2d490e256..14788895e7 100644
--- a/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs20.pg
+++ b/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs20.pg
@@ -8,6 +8,16 @@
 # ENDDESCRIPTION
 
 ## DBCCSS('6.NS.6')
+## DBsubject(Algebra)
+## DBchapter(Cartesian coordinate system)
+## DBsection(Plotting points)
+## Institution(PCC)
+## Author(Alex Jordan, Carl Yao, Chris Hughes)
+## MLT(id_points_from_graph_1)
+## Level(1)
+## MO(1)
+## KEYWORDS('coordinate','ordered pair')
+
 
 ##############################################
 
@@ -144,127 +154,3 @@ END_PGML_SOLUTION
 
 
 ENDDOCUMENT();
-
-
-
-
-# OLD
-# OLD
-# OLD
-# WeBWorK problem written by Carl Yao
-# Portland Community College
-#
-# Identify an ordered pair on a coordinate system. The point is on the x-axis.
-#
-# ENDDESCRIPTION
-
-## DBCCSS('6.NS.6')
-## DBsubject(Algebra)
-## DBchapter(Cartesian coordinate system)
-## DBsection(Plotting points)
-## Institution(PCC)
-## Author(Alex Jordan, Carl Yao, Chris Hughes)
-## MLT(id_points_from_graph_1)
-## Level(1)
-## MO(1)
-## KEYWORDS('coordinate','ordered pair')
-
-##############################################
-
-DOCUMENT();
-
-
-##############################################
-
-Context("Numeric");
-$refreshCachedImages=1;
-
-$x = non_zero_random(-8,8,1);
-#do {$y = non_zero_random(-8,8,1);} until (abs($x)!=abs($y));
-$y = 0;
-
-@ar_x = ($x,-$x,$y,$y);
-@ar_y = ($y,$y,$x,-$x);
-
-$xmin = -10;
-$xmax = 10;
-$ymin = -10;
-$ymax = 10;
-
-@gr=();
-
-for ($i=0;$i<=3;$i++) {
-   $gr[$i] = init_graph($xmin,$ymin,$xmax,$ymax,
-   axes=>[0,0],
-   grid=>[$xmax-$xmin,$ymax-$ymin],
-   size=>[800,800]
-   );
-
-   $gr[$i]->stamps(closed_circle($ar_x[$i],$ar_y[$i],'blue'));
-}
-
-#randomize choices
-$j=5;
-$p=random(1,3,1);
-do {$q=random(1,3,1);} until ($p!=$q);
-$gr[$j]=$gr[$p];
-$gr[$p]=$gr[$q];
-$gr[$q]=$gr[$j];
-
-@ar_choice = ("A","B","C","D");
-$correct = random(0,3,1);
-$gr[$j]=$gr[$correct];
-$gr[$correct]=$gr[0];
-$gr[0]=$gr[$j];
-
-$radio = RadioButtons(
-  ["A","B","C","D"],
-  "$ar_choice[$correct]", # correct answer
-  order => ["A","B","C","D"],
-);
-
-##############################################
-
-Context()->texStrings;
-
-BEGIN_TEXT
-
-$PAR
-Choose the graph showing \( ($x,$y) \) in the coordinate system.
-$PAR
-Click on a graph to enlarge it.
-$PAR
-
-A. \{ image( insertGraph($gr[0]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-$PAR
-B. \{ image( insertGraph($gr[1]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-$PAR
-C. \{ image( insertGraph($gr[2]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-$PAR
-D. \{ image( insertGraph($gr[3]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-
-$BR
-$BR
-\{ $radio->buttons() \}
-
-
-
-END_TEXT
-
-Context()->normalStrings;
-
-##############################################
-
-ANS( $radio->cmp() );
-
-BEGIN_PGML_SOLUTION
-
-The correct answer is [$radio->correct_ans()].
-
-END_PGML_SOLUTION
-
-ENDDOCUMENT();
diff --git a/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs30.pg b/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs30.pg
index 12a9a63b7b..049ee9d9fb 100644
--- a/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs30.pg
+++ b/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs30.pg
@@ -8,6 +8,15 @@
 # ENDDESCRIPTION
 
 ## DBCCSS('6.NS.6')
+## DBsubject(Algebra)
+## DBchapter(Cartesian coordinate system)
+## DBsection(Plotting points)
+## Institution(PCC)
+## Author(Alex Jordan, Carl Yao, Chris Hughes)
+## MLT(id_points_from_graph_1)
+## Level(2)
+## MO(1)
+## KEYWORDS('coordinate','ordered pair')
 
 ##############################################
 
@@ -145,126 +154,3 @@ END_PGML_SOLUTION
 
 
 ENDDOCUMENT();
-
-
-
-# OLD
-# OLD
-# OLD
-# WeBWorK problem written by Carl Yao
-# Portland Community College
-#
-# Identify an ordered pair on a coordinate system. The point is on the y-axis.
-#
-# ENDDESCRIPTION
-
-## DBCCSS('6.NS.6')
-## DBsubject(Algebra)
-## DBchapter(Cartesian coordinate system)
-## DBsection(Plotting points)
-## Institution(PCC)
-## Author(Alex Jordan, Carl Yao, Chris Hughes)
-## MLT(id_points_from_graph_1)
-## Level(2)
-## MO(1)
-## KEYWORDS('coordinate','ordered pair')
-
-##############################################
-
-DOCUMENT();
-
-
-##############################################
-
-Context("Numeric");
-$refreshCachedImages=1;
-
-$x = 0;
-#do {$y = non_zero_random(-8,8,1);} until (abs($x)!=abs($y));
-$y = non_zero_random(-8,8,1);
-
-@ar_x = ($x,$x,$y,-$y);
-@ar_y = ($y,-$y,$x,$x);
-
-$xmin = -10;
-$xmax = 10;
-$ymin = -10;
-$ymax = 10;
-
-@gr=();
-
-for ($i=0;$i<=3;$i++) {
-   $gr[$i] = init_graph($xmin,$ymin,$xmax,$ymax,
-   axes=>[0,0],
-   grid=>[$xmax-$xmin,$ymax-$ymin],
-   size=>[800,800]
-   );
-
-   $gr[$i]->stamps(closed_circle($ar_x[$i],$ar_y[$i],'blue'));
-}
-
-#randomize choices
-$j=5;
-$p=random(1,3,1);
-do {$q=random(1,3,1);} until ($p!=$q);
-$gr[$j]=$gr[$p];
-$gr[$p]=$gr[$q];
-$gr[$q]=$gr[$j];
-
-@ar_choice = ("A","B","C","D");
-$correct = random(0,3,1);
-$gr[$j]=$gr[$correct];
-$gr[$correct]=$gr[0];
-$gr[0]=$gr[$j];
-
-$radio = RadioButtons(
-  ["A","B","C","D"],
-  "$ar_choice[$correct]", # correct answer
-  order => ["A","B","C","D"],
-);
-
-##############################################
-
-Context()->texStrings;
-
-BEGIN_TEXT
-
-$PAR
-Choose the graph showing \( ($x,$y) \) in the coordinate system.
-$PAR
-Click on a graph to enlarge it.
-$PAR
-
-A. \{ image( insertGraph($gr[0]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-$PAR
-B. \{ image( insertGraph($gr[1]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-$PAR
-C. \{ image( insertGraph($gr[2]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-$PAR
-D. \{ image( insertGraph($gr[3]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-
-$BR
-$BR
-\{ $radio->buttons() \}
-
-
-
-END_TEXT
-
-Context()->normalStrings;
-
-##############################################
-
-ANS( $radio->cmp() );
-
-BEGIN_PGML_SOLUTION
-
-The correct answer is [$radio->correct_ans()].
-
-END_PGML_SOLUTION
-
-ENDDOCUMENT();
diff --git a/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs40.pg b/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs40.pg
index 899db94c45..6167653322 100644
--- a/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs40.pg
+++ b/OpenProblemLibrary/PCC/BasicAlgebra/GraphingPointsAndLines/GraphOrderedPairs40.pg
@@ -9,6 +9,15 @@
 # ENDDESCRIPTION
 
 ## DBCCSS('6.NS.6')
+## DBsubject(Algebra)
+## DBchapter(Cartesian coordinate system)
+## DBsection(Plotting points)
+## Institution(PCC)
+## Author(Alex Jordan, Carl Yao, Chris Hughes)
+## MLT(id_points_from_graph_1)
+## Level(1)
+## MO(1)
+## KEYWORDS('coordinate','ordered pair')
 
 ##############################################
 
@@ -146,127 +155,3 @@ END_PGML_SOLUTION
 
 
 ENDDOCUMENT();
-
-
-
-
-
-
-# OLD
-# OLD
-# OLD
-# WeBWorK problem written by Carl Yao
-# Portland Community College
-#
-# Identify an ordered pair on a coordinate system. The point is not on any axis.
-# Coordinate values are decimals.
-#
-# ENDDESCRIPTION
-
-## DBCCSS('6.NS.6')
-## DBsubject(Algebra)
-## DBchapter(Cartesian coordinate system)
-## DBsection(Plotting points)
-## Institution(PCC)
-## Author(Alex Jordan, Carl Yao, Chris Hughes)
-## MLT(id_points_from_graph_1)
-## Level(1)
-## MO(1)
-## KEYWORDS('coordinate','ordered pair')
-
-##############################################
-
-DOCUMENT();
-
-
-##############################################
-
-Context("Numeric");
-$refreshCachedImages=1;
-
-$x = non_zero_random(-8.5,8.5,1);
-do {$y = non_zero_random(-8.5,8.5,1);} until (abs($x)!=abs($y));
-
-@ar_x = ($x,$x,$y,-$y);
-@ar_y = ($y,-$y,$x,$x);
-
-$xmin = -10;
-$xmax = 10;
-$ymin = -10;
-$ymax = 10;
-
-@gr=();
-
-for ($i=0;$i<=3;$i++) {
-   $gr[$i] = init_graph($xmin,$ymin,$xmax,$ymax,
-   axes=>[0,0],
-   grid=>[$xmax-$xmin,$ymax-$ymin],
-   size=>[800,800]
-   );
-
-   $gr[$i]->stamps(closed_circle($ar_x[$i],$ar_y[$i],'blue'));
-}
-
-#randomize choices
-$j=5;
-$p=random(1,3,1);
-do {$q=random(1,3,1);} until ($p!=$q);
-$gr[$j]=$gr[$p];
-$gr[$p]=$gr[$q];
-$gr[$q]=$gr[$j];
-
-@ar_choice = ("A","B","C","D");
-$correct = random(0,3,1);
-$gr[$j]=$gr[$correct];
-$gr[$correct]=$gr[0];
-$gr[0]=$gr[$j];
-
-$radio = RadioButtons(
-  ["A","B","C","D"],
-  "$ar_choice[$correct]", # correct answer
-  order => ["A","B","C","D"],
-);
-
-##############################################
-
-Context()->texStrings;
-
-BEGIN_TEXT
-
-$PAR
-Choose the graph showing \( ($x,$y) \) in the coordinate system.
-$PAR
-
-A. \{ image( insertGraph($gr[0]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-$PAR
-B. \{ image( insertGraph($gr[1]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-$PAR
-C. \{ image( insertGraph($gr[2]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-$PAR
-D. \{ image( insertGraph($gr[3]), width=>400, height=>400, tex_size=>800, 
-   extra_html_tags=>'title="Graph of a coordinate system with an ordered pair." alt="Graph of a coordinate system with an ordered pair."'  ) \}
-
-$BR
-$BR
-\{ $radio->buttons() \}
-
-
-
-END_TEXT
-
-Context()->normalStrings;
-
-##############################################
-
-ANS( $radio->cmp() );
-
-BEGIN_PGML_SOLUTION
-
-The correct answer is [$radio->correct_ans()].
-
-END_PGML_SOLUTION
-
-ENDDOCUMENT();
diff --git a/OpenProblemLibrary/PCC/BasicAlgebra/PolynomialMultiplication/PolynomialMultiplication175.pg b/OpenProblemLibrary/PCC/BasicAlgebra/PolynomialMultiplication/PolynomialMultiplication175.pg
index 8e32936675..f568fd3368 100644
--- a/OpenProblemLibrary/PCC/BasicAlgebra/PolynomialMultiplication/PolynomialMultiplication175.pg
+++ b/OpenProblemLibrary/PCC/BasicAlgebra/PolynomialMultiplication/PolynomialMultiplication175.pg
@@ -27,8 +27,6 @@
 
 DOCUMENT();
 
-DOCUMENT();
-
 loadMacros(
   "PGstandard.pl",
   "MathObjects.pl",
diff --git a/OpenProblemLibrary/PCC/BasicAlgebra/PolynomialMultiplication/PolynomialMultiplication215.pg b/OpenProblemLibrary/PCC/BasicAlgebra/PolynomialMultiplication/PolynomialMultiplication215.pg
index 391ef639d0..b19a247bdd 100644
--- a/OpenProblemLibrary/PCC/BasicAlgebra/PolynomialMultiplication/PolynomialMultiplication215.pg
+++ b/OpenProblemLibrary/PCC/BasicAlgebra/PolynomialMultiplication/PolynomialMultiplication215.pg
@@ -27,8 +27,6 @@
 
 DOCUMENT();
 
-DOCUMENT();
-
 loadMacros(
   "PGstandard.pl",
   "MathObjects.pl",
diff --git a/OpenProblemLibrary/PCC/BasicAlgebra/PythagoreanTheorem/pythagoreanTheorem20.pg b/OpenProblemLibrary/PCC/BasicAlgebra/PythagoreanTheorem/pythagoreanTheorem20.pg
index a29ba088f7..3884ce5635 100644
--- a/OpenProblemLibrary/PCC/BasicAlgebra/PythagoreanTheorem/pythagoreanTheorem20.pg
+++ b/OpenProblemLibrary/PCC/BasicAlgebra/PythagoreanTheorem/pythagoreanTheorem20.pg
@@ -162,6 +162,8 @@ $text = "This is a right triangle. Right angle C is at the $cPosition corner of
 
 ##############################################
 
+TEXT(beginproblem());
+
 BEGIN_PGML
 [@EnlargeImageStatementPGML()@]**
 
diff --git a/OpenProblemLibrary/PCC/BasicAlgebra/Trigonometry/RightTriangleTrigDefinition80.pg b/OpenProblemLibrary/PCC/BasicAlgebra/Trigonometry/RightTriangleTrigDefinition80.pg
index 1319206aba..1e0bf9a86a 100644
--- a/OpenProblemLibrary/PCC/BasicAlgebra/Trigonometry/RightTriangleTrigDefinition80.pg
+++ b/OpenProblemLibrary/PCC/BasicAlgebra/Trigonometry/RightTriangleTrigDefinition80.pg
@@ -319,6 +319,8 @@ $text = "This is a right triangle. Right angle C is at the $cPosition corner of
 ##############################################
 $refreshCachedImages = 1;
 
+TEXT(beginproblem());
+
 BEGIN_PGML
 
 [@EnlargeImageStatementPGML()@]**
diff --git a/OpenProblemLibrary/PCC/BasicMath/Decimal/ReadDecimals60.pg b/OpenProblemLibrary/PCC/BasicMath/Decimal/ReadDecimals60.pg
index 96ef051276..458c6a2171 100644
--- a/OpenProblemLibrary/PCC/BasicMath/Decimal/ReadDecimals60.pg
+++ b/OpenProblemLibrary/PCC/BasicMath/Decimal/ReadDecimals60.pg
@@ -77,6 +77,7 @@ $mc -> extra(
 
 Context()->normalStrings;
 
+TEXT(beginproblem());
 
 ##############################################
 
diff --git a/OpenProblemLibrary/PCC/BasicMath/Decimal/ReadDecimals70.pg b/OpenProblemLibrary/PCC/BasicMath/Decimal/ReadDecimals70.pg
index 0ce2c48971..f0b34c0928 100644
--- a/OpenProblemLibrary/PCC/BasicMath/Decimal/ReadDecimals70.pg
+++ b/OpenProblemLibrary/PCC/BasicMath/Decimal/ReadDecimals70.pg
@@ -79,6 +79,7 @@ $mc -> extra(
 
 Context()->normalStrings;
 
+TEXT(beginproblem());
 
 ##############################################
 
diff --git a/OpenProblemLibrary/PCC/BasicMath/Decimal/ReadDecimals80.pg b/OpenProblemLibrary/PCC/BasicMath/Decimal/ReadDecimals80.pg
index 83962f2e3c..220b47629f 100644
--- a/OpenProblemLibrary/PCC/BasicMath/Decimal/ReadDecimals80.pg
+++ b/OpenProblemLibrary/PCC/BasicMath/Decimal/ReadDecimals80.pg
@@ -76,6 +76,7 @@ $mc -> extra(
 
 Context()->normalStrings;
 
+TEXT(beginproblem());
 
 ##############################################
 
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.1.1.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.1.1.pg
index 114d4d9183..d052638a17 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.1.1.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.1.1.pg
@@ -20,6 +20,7 @@ loadMacros(
   "PGnumericalmacros.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.1.2.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.1.2.pg
index 88f0de13e3..6c92633150 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.1.2.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.1.2.pg
@@ -20,6 +20,7 @@ loadMacros(
   "PGnumericalmacros.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.2.8.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.2.8.pg
index 705099a3c4..19018653e9 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.2.8.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.2.8.pg
@@ -20,6 +20,7 @@ loadMacros(
   "PGnumericalmacros.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.15.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.15.pg
index 966fc9b656..49a0b4f29a 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.15.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.15.pg
@@ -20,6 +20,7 @@ loadMacros(
   "PGnumericalmacros.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.16.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.16.pg
index e9674275de..c1b219ec29 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.16.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.16.pg
@@ -20,6 +20,7 @@ loadMacros(
   "PGnumericalmacros.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.17.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.17.pg
index 1558cdf071..a50b58a003 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.17.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.17.pg
@@ -20,6 +20,7 @@ loadMacros(
   "PGnumericalmacros.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.18.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.18.pg
index a462cb2265..863696ae56 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.18.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.18.pg
@@ -20,6 +20,7 @@ loadMacros(
   "PGnumericalmacros.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.19.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.19.pg
index 598fd5dfab..5147e5f32c 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.19.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/11-AdditionalHypothesisTests/11.3.19.pg
@@ -20,6 +20,7 @@ loadMacros(
   "PGnumericalmacros.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.18.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.18.pg
index 6452723dbb..f00e95b3bf 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.18.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.18.pg
@@ -16,6 +16,7 @@ loadMacros(
   "PGstandard.pl",
   "MathObjects.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.19.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.19.pg
index 6a91c61f15..c89b66bc2d 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.19.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.19.pg
@@ -16,6 +16,7 @@ loadMacros(
   "PGstandard.pl",
   "MathObjects.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.20.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.20.pg
index a9a7bbbde0..5f52c8e70b 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.20.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.20.pg
@@ -16,6 +16,7 @@ loadMacros(
   "PGstandard.pl",
   "MathObjects.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.21.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.21.pg
index 14a23d4aeb..ec38fb1918 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.21.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/2-DescriptiveStatistics/2.5.21.pg
@@ -17,6 +17,7 @@ loadMacros(
   "MathObjects.pl",
   "niceTables.pl",
   "parserRadioButtons.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/8-HypothesisTestingOneSample/8.3.19.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/8-HypothesisTestingOneSample/8.3.19.pg
index 6358d3ca21..2dc5d0e454 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/8-HypothesisTestingOneSample/8.3.19.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/8-HypothesisTestingOneSample/8.3.19.pg
@@ -17,6 +17,7 @@ loadMacros(
   "PGstandard.pl",
   "MathObjects.pl",
   "parserRadioButtons.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.1.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.1.pg
index a8306ca8e2..9c840de376 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.1.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.1.pg
@@ -19,6 +19,7 @@ loadMacros(
   "parserRadioButtons.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.2.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.2.pg
index 188a78a38e..6aebec3d42 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.2.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.2.pg
@@ -19,6 +19,7 @@ loadMacros(
   "parserRadioButtons.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.3.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.3.pg
index 583dfcfbd9..322f8ad2eb 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.3.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.3.pg
@@ -19,6 +19,7 @@ loadMacros(
   "parserRadioButtons.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.4.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.4.pg
index 91492b678d..51e61aa66a 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.4.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.1.4.pg
@@ -19,6 +19,7 @@ loadMacros(
   "parserRadioButtons.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.5.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.5.pg
index c972c2bfdd..69bbbbb532 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.5.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.5.pg
@@ -19,6 +19,7 @@ loadMacros(
   "parserRadioButtons.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.6.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.6.pg
index 0b7ab39a2b..bfd404ee55 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.6.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.6.pg
@@ -19,6 +19,7 @@ loadMacros(
   "parserRadioButtons.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.7.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.7.pg
index e88bfd0d9b..b0317429d8 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.7.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.7.pg
@@ -19,6 +19,7 @@ loadMacros(
   "parserRadioButtons.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.8.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.8.pg
index d35531e41e..bf4e87a08c 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.8.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.2.8.pg
@@ -19,6 +19,7 @@ loadMacros(
   "parserRadioButtons.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.3.11.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.3.11.pg
index cd03fbbff5..2e4e2152ba 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.3.11.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.3.11.pg
@@ -20,6 +20,7 @@ loadMacros(
   "PGnumericalmacros.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.3.14.pg b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.3.14.pg
index f70ae5240b..9c832bb96b 100644
--- a/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.3.14.pg
+++ b/OpenProblemLibrary/Piedmont/StevensStatistics/9-HypothesisTestingTwoSamples/9.3.14.pg
@@ -20,6 +20,7 @@ loadMacros(
   "PGnumericalmacros.pl",
   "PGstatisticsmacros.pl",
   "niceTables.pl",
+  "PGcourse.pl"
 );
 
 TEXT(beginproblem());
diff --git a/OpenProblemLibrary/Simpson/SC_Lay5.6DisDynSystem1.pg b/OpenProblemLibrary/Simpson/SC_Lay5.6DisDynSystem1.pg
index 76f5ee4f95..1b7ec53fbb 100755
--- a/OpenProblemLibrary/Simpson/SC_Lay5.6DisDynSystem1.pg
+++ b/OpenProblemLibrary/Simpson/SC_Lay5.6DisDynSystem1.pg
@@ -18,6 +18,7 @@ loadMacros(
 "PGstandard.pl",
 "MathObjects.pl",
 "parserPopUp.pl",
+"PGcourse.pl"
 );
 
 TEXT(beginproblem());
@@ -83,4 +84,4 @@ ANS($eigenvalues->cmp() );
 ANS($popup->cmp());
 
 
-ENDDOCUMENT();
\ No newline at end of file
+ENDDOCUMENT();
diff --git a/OpenProblemLibrary/Simpson/SC_LayIMT1.pg b/OpenProblemLibrary/Simpson/SC_LayIMT1.pg
index 5b3b2b5c30..acda6d1213 100755
--- a/OpenProblemLibrary/Simpson/SC_LayIMT1.pg
+++ b/OpenProblemLibrary/Simpson/SC_LayIMT1.pg
@@ -19,6 +19,7 @@ loadMacros(
    "PGstandard.pl",     
    "MathObjects.pl",
    "parserPopUp.pl",
+   "PGcourse.pl"
 );
 
 # Print problem number and point value (weight) for the problem
diff --git a/OpenProblemLibrary/ma112DB/set1_2/add_fractions.pg b/OpenProblemLibrary/ma112DB/set1_2/add_fractions.pg
index f78aaab895..cf969c81f8 100644
--- a/OpenProblemLibrary/ma112DB/set1_2/add_fractions.pg
+++ b/OpenProblemLibrary/ma112DB/set1_2/add_fractions.pg
@@ -41,6 +41,8 @@ $den = $d1*$d2;
 Context("LimitedFraction");
 $fract = Compute("$num/$den");
 
+TEXT(beginproblem());
+
 BEGIN_TEXT
 Add the fractions, and reduce your answer. \[ \frac{$n1}{$d1}+\frac{$n2}{$d2} \]
 The reduced answer is \{ans_rule(10)\}
diff --git a/OpenProblemLibrary/ma117DB/set1/srw1_2_17.pg b/OpenProblemLibrary/ma117DB/set1/srw1_2_17.pg
index 2897e9928e..f7ce00714e 100644
--- a/OpenProblemLibrary/ma117DB/set1/srw1_2_17.pg
+++ b/OpenProblemLibrary/ma117DB/set1/srw1_2_17.pg
@@ -27,6 +27,8 @@ loadMacros(
 
 $showCorrectPartialAnswers = 1;
 
+TEXT(beginproblem());
+
 BEGIN_TEXT
 Evaluate the expression 
 \( (9x)^{2/3}+(2y)^{2/3}+z^{2/3} \)
diff --git a/OpenProblemLibrary/ma117DB/set2/srw1_8_45.pg b/OpenProblemLibrary/ma117DB/set2/srw1_8_45.pg
index 60165bbc8a..7aaeee069b 100644
--- a/OpenProblemLibrary/ma117DB/set2/srw1_8_45.pg
+++ b/OpenProblemLibrary/ma117DB/set2/srw1_8_45.pg
@@ -37,6 +37,8 @@ $b = -$a+3;
 $b1 = $a + $b;
 $c1 = $a*$b;
 
+TEXT(beginproblem());
+
 BEGIN_TEXT
 Find the \(x\)- and \(y\)-intercepts of the graph of the equation
 \(y=x^2 + $b1 x $c1\).