diff --git a/Lib/Protocols/IdFTPServer.pas b/Lib/Protocols/IdFTPServer.pas
index 0529cb589..00ae68d40 100644
--- a/Lib/Protocols/IdFTPServer.pas
+++ b/Lib/Protocols/IdFTPServer.pas
@@ -2230,6 +2230,13 @@ procedure TIdFTPServer.InitializeCommandHandlers;
   LCmd.NormalReply.NumericCode := 200;
   LCmd.Description.Text := 'Syntax: SSCN [ON|OFF]'; {do not localize}
 
+  //ALGS  - RFC 6384
+  LCmd := CommandHandlers.Add;
+  LCmd.NormalReply.NumericCode := 202;
+  LCmd.NormalReply.Text.Text := 'Command not implemented, superfluous at this site'; {Do not localize}
+  LCmd.Command := 'ALGS';    {Do not Localize}
+  LCmd.Description.Text := 'Syntax: ALGS (STATUS64|ENABLE64|DISABLE64)'; {do not localize}
+
   //CPSV <CRLF>
   LCmd := CommandHandlers.Add;
   LCmd.Command := 'CPSV';    {Do not Localize}