--- loncom/homework/grades.pm	2002/11/22 18:55:18	1.59
+++ loncom/homework/grades.pm	2002/11/27 15:25:48	1.60
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.59 2002/11/22 18:55:18 albertel Exp $
+# $Id: grades.pm,v 1.60 2002/11/27 15:25:48 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1199,7 +1199,7 @@ sub keywords_highlight {
     (my $styleoff = $styleon) =~ s/\</\<\//;
     my @keylist   = split(/[,\s+]/,$ENV{'form.keywords'});
     foreach (@keylist) {
-	$string =~ s/\b$_(\b|\.)/\<font color\=$ENV{'form.kwclr'} $size\>$styleon$_$styleoff\<\/font\>/gi;
+	$string =~ s/\b\Q$_\E(\b|\.)/\<font color\=$ENV{'form.kwclr'} $size\>$styleon$_$styleoff\<\/font\>/gi;
     }
     # This is not really the right place to do this, but I cannot find a
     # better one at this time.  So here we go - the m in the s:::mg causes