--- loncom/publisher/lonretrieve.pm	2003/02/03 18:03:53	1.21
+++ loncom/publisher/lonretrieve.pm	2003/05/19 21:53:03	1.22
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to retrieve an old version of a file
 #
-# $Id: lonretrieve.pm,v 1.21 2003/02/03 18:03:53 harris41 Exp $
+# $Id: lonretrieve.pm,v 1.22 2003/05/19 21:53:03 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -77,7 +77,7 @@ sub phaseone {
     my $filename;
     opendir(DIR,$resdir);
     while ($filename=readdir(DIR)) {
-        if ($filename=~/^$main\.(\d+)\.$suffix$/) {
+        if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) {
 	   my $version=$1;
            my ($rdev,$rino,$rmode,$rnlink,
                 $ruid,$rgid,$rrdev,$rsize,