*** env.el	13 May 2007 17:23:38 +0200	1.38.4.1
--- env.el	13 May 2007 19:08:47 +0200	
***************
*** 212,218 ****
    (let ((value (getenv-internal (if (multibyte-string-p variable)
  				    (encode-coding-string
  				     variable locale-coding-system)
! 				  variable))))
      (if (and enable-multibyte-characters value)
  	(setq value (decode-coding-string value locale-coding-system)))
      (when (interactive-p)
--- 212,219 ----
    (let ((value (getenv-internal (if (multibyte-string-p variable)
  				    (encode-coding-string
  				     variable locale-coding-system)
! 				  variable)
! 				frame)))
      (if (and enable-multibyte-characters value)
  	(setq value (decode-coding-string value locale-coding-system)))
      (when (interactive-p)