(getenv): Pass frame to getenv-internal.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/env.el b/lisp/env.el
index 33d4287312f..346bd3be75e 100644
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -212,7 +212,8 @@ in the environment list of the selected frame."
   (let ((value (getenv-internal (if (multibyte-string-p variable)
                                     (encode-coding-string
                                      variable locale-coding-system)
-                                  variable))))
+                                  variable)
+                                frame)))
     (if (and enable-multibyte-characters value)
         (setq value (decode-coding-string value locale-coding-system)))
     (when (interactive-p)