Fix FTP-SIZE to read reply until the end of the string.

scheme/lib/ftp.scm

@@ -206,9 +206,8 @@
 (define (ftp-size connection file)
   (let* ((reply (ftp-send-command connection
 				  (format #f "SIZE ~a" file))))
-    (and (string? reply)
     (string->number (substring reply
-                                    4 (- (string-length reply) 1))))))
+			       4 (string-length reply)))))
 
 ;; Abort the current data transfer. Maybe we should close the data
 ;; socket?