diff --git a/ftp-client/src/Network/FTP/Client.hs b/ftp-client/src/Network/FTP/Client.hs
index c79bb0a..4246aca 100644
--- a/ftp-client/src/Network/FTP/Client.hs
+++ b/ftp-client/src/Network/FTP/Client.hs
@@ -268,7 +268,8 @@ loopMultiLine h code lines = do
     nextLine <- liftIO $ getLineResp h
     let newLines = lines <> [C.dropWhile (== ' ') nextLine]
         nextCode = C.take 3 nextLine
-    if nextCode == code
+        continue = C.head $ C.drop 3 nextLine
+    if nextCode == code && continue /= '-'
         then return newLines
         else loopMultiLine h code newLines