--- loncom/lonnet/perl/lonnet.pm	2004/02/10 19:23:11	1.459.2.3
+++ loncom/lonnet/perl/lonnet.pm	2004/03/19 16:48:37	1.459.2.4
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.459.2.3 2004/02/10 19:23:11 albertel Exp $
+# $Id: lonnet.pm,v 1.459.2.4 2004/03/19 16:48:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4015,7 +4015,7 @@ sub metadata_generate_part0 {
       my $olddis=$$metacache{':parameter_'.$allnames{$name}.'_'.$name.
 			     '.display'};
       my $expr='\\[Part: '.$allnames{$name}.'\\]';
-      $olddis=~s/$expr/\[Part: 0\]/;
+      $olddis=~s/\Q$expr\E/\[Part: 0\]/;
       $$metacache{"$key.display"}=$olddis;
     }
 }