--- trunk/webwork/system/courseScripts/PG.pl	2001/06/19 20:56:08	28
+++ trunk/webwork/system/courseScripts/PG.pl	2001/06/19 21:56:35	29
@@ -138,7 +138,7 @@
     };
    foreach my $var ( eval q{keys %main::envir} ) {
        eval("\$main::$var =\$main::envir{'$var'}");
-   	   warn "Problem defining \$main::$var while inititializing the PG problem: $@" if $@;
+   	   warn "Problem defining ", q{\$main::$var}, " while inititializing the PG problem: $@" if $@;
     }
     eval q{ 
 		@main::submittedAnswers = @{$main::refSubmittedAnswers} if defined($main::refSubmittedAnswers);