diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 1f4e2e830..af10c2d6e 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -732,6 +732,8 @@ context.  See the individual commands for more information."
  "use `org-planning-line-re', followed by `org-ts-regexp-both' instead."
  "Org 9.4")
 
+(define-obsolete-function-alias 'org-copy 'org-refile-copy "Org 9.4")
+
 ;;;; Obsolete link types
 
 (eval-after-load 'ol
diff --git a/lisp/org-refile.el b/lisp/org-refile.el
index 0b44fdfa5..4a09ab53f 100644
--- a/lisp/org-refile.el
+++ b/lisp/org-refile.el
@@ -373,8 +373,6 @@ the *old* location.")
 (defvar org-refile-keep nil
   "Non-nil means `org-refile' will copy instead of refile.")
 
-(define-obsolete-function-alias 'org-copy 'org-refile-copy)
-
 ;;;###autoload
 (defun org-refile-copy ()
   "Like `org-refile', but preserve the refiled subtree."