1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/ftp.el b/lisp/ftp.el
index 402ef12c371..c7d7b7e59df 100644
--- a/lisp/ftp.el
+++ b/lisp/ftp.el
@@ -244,7 +244,7 @@ USER and PASSWORD are defaulted from the values used when
             ((looking-at ignore)
              (forward-line 1))
             ((not (search-forward "\n" nil t))
-             ;; the way asynchronous process-output fucks with (point)
+             ;; the way asynchronous process-output works with (point)
              ;;  is really really disgusting.
              (setq p (point))
              (condition-case ()