Emacs "-geometry" command line option no longer working?

[Dr Rainer Woitok <rainer.woitok@gmail.com>]

Greetings,

after my  recent upgrade  from Emacs 28.2  to 29.1  the "left" and "top"
parts of Emacs'  "-geometry" command line option  are no longer working.
Emacs uses a varying value for "left"  and 0 for "top".  My file "early-
init.el" (which worked flawlessly with Emacs 28.2)  contains the follow-
ing:

(let* ((g (                    split-string     (getenv "_EMACS_SIZE_") "x"))
       (o (*    7             (string-to-number (getenv "_WINDOW_OFFSET_"))))
       (p (list (cons 'font-parameter           (getenv "_EMACS_FONT_"))
                (cons 'height (string-to-number (cadr g)))
                (cons 'top    (string-to-number (getenv "_WINDOW_TOP_")))
                (cons 'width  (string-to-number (car  g)))

                '(horizontal-scroll-bars .   nil)
                '(left-fringe            .     0)
                '(menu-bar-lines         .     0)
                '(right-fringe           .   nil)
                '(tab-bar-lines          .     0)
                '(tool-bar-lines         .     0)
                '(user-position          .     t)
                '(vertical-scroll-bars   . right)
      ))   )

      (setq default-frame-alist (cons (cons 'left o) p)
            initial-frame-alist                      p
)     )

where "top"  evaluates to 6 and  "left" is left unspecified  in variable
"initial-frame-alist",  and under Emacs 28.2 was taken from the "-geome-
try" specification on the command line.   What am I missing?

Sincerely,
  Rainer