*** ftp.pl.old	Wed Sep  1 23:11:11 1999
--- ftp.pl	Wed Sep  1 23:12:43 1999
***************
*** 587,592 ****
--- 587,595 ----
  		return 0;
  	}
  
+ 	# shut down our end of the socket
+ 	&close_data_socket;
+ 
  	# read the close
  	#
  	$ret = &expect($timeout,
***************
*** 596,604 ****
  		$ret = 0;
  	}
  
- 	# shut down our end of the socket
- 	&close_data_socket;
- 
  	if( ! $ret ){
  		return 0;
  	}
--- 599,604 ----