diff --git a/lisp/files.el b/lisp/files.el
index 32ef61a6277..f8a1ea1715b 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -390,7 +390,7 @@ Use \\[toggle-read-only] to permit editing."
 Like \\[find-file-other-window] but marks buffer as read-only.
 Use \\[toggle-read-only] to permit editing."
   (interactive "fFind file read-only other window: ")
-  (find-file filename)
+  (find-file-other-window filename)
   (setq buffer-read-only t))
 
 (defun find-file-read-only-other-frame (filename)