--- foxridge-archiver/MPIWGStor.pm	2005/09/20 17:24:57	1.5
+++ foxridge-archiver/MPIWGStor.pm	2006/02/10 17:01:18	1.6
@@ -12,7 +12,7 @@ use vars qw(@ISA @EXPORT $VERSION
 	    $file_perm);
 use Exporter;
 
-$VERSION = 0.6.1; #  ROC 8.8.2005
+$VERSION = 0.6.2; #  ROC 10.2.2006
 
 @ISA = qw(Exporter);
 
@@ -162,7 +162,7 @@ sub split_file_path {
 sub sstrip {
     my ($name) = @_;
     
-    if ($name =~ /\s*(.*)\s*/) {
+    if ($name =~ /^\s*(.*?)\s*$/) {
 	return $1;
     }
     return $name;