*** webcopy.src	Sat Nov  1 11:00:23 1997
--- webcopy.src.neu	Sat Nov  1 13:48:20 1997
***************
*** 384,389 ****
--- 384,390 ----
  	    return;
  	}
      }
+     $ref =~ s/&/&/;
      $ref="$path$ref" unless $ref=~m!^/!;
      ($ref,$qs)=$ref=~m!^([^?]*)(.*)$!;
      $isdir=$ref=~m!/$!;
***************
*** 454,459 ****
--- 455,461 ----
  
  sub transfer {
      local($url,$file)=@_;
+     $file=&unescape($file);
      local($status,$code,$info,$line,$length,$html,$redirect,$update,$data,
  	  $bytes,$step,$slice);
      if ($useremote) {
***************
*** 560,565 ****
--- 562,568 ----
      local(@subdirs)=split('/',$path);
      local($sub);
      $name=pop(@subdirs);	# get name of file from path
+     $name=&unescape($name);
      for $sub (@subdirs) {
  	$dir.= "/".&unescape($sub);
  	stat(&real($dir));