--- loncom/publisher/lonretrieve.pm	2002/10/19 06:34:15	1.20
+++ 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.20 2002/10/19 06:34:15 albertel Exp $
+# $Id: lonretrieve.pm,v 1.22 2003/05/19 21:53:03 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,7 +39,6 @@
 # 03/24,03/29 Gerd Kortemeyer)
 #
 # 03/31,04/03,05/02,05/09,06/23,08/20 Gerd Kortemeyer
-# 12/16 Scott Harrison
 #
 ###
 
@@ -78,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,