From a5d9b210f0436124f179cbbbca1bd0be607d9a6f Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 21 Oct 2003 05:44:56 +0000
Subject: [PATCH] Fixed wrong parentheses in FTP-APPEND

---
 scheme/lib/ftp.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scheme/lib/ftp.scm b/scheme/lib/ftp.scm
index 3c45164..3c01a1c 100644
--- a/scheme/lib/ftp.scm
+++ b/scheme/lib/ftp.scm
@@ -297,9 +297,9 @@
    connection
    (lambda ()
      (ftp-send-command connection (build-command "APPE" remote-file)
-		       (exactly-code "150"))
-     (lambda (data-socket)
-       (act (socket:outport data-socket))))))
+		       (exactly-code "150")))
+   (lambda (data-socket)
+     (act (socket:outport data-socket)))))
 
 ;; send a command verbatim to the remote server and wait for a
 ;; reply.