set-frame-font question

["B. T. Raven" <ecinmn@alcisp.com>]

Hello:

At the beginning of my .emacs I have this form:

(setq initial-frame-alist '((name . "arial") (top . 370) (left . 1) (width
. 163) (height . 17)))

And at the end:

(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default ((t (:stipple nil :background "ghostwhite" :foreground "black"
:inverse-video nil :box nil :strike-through nil :overline nil :underline
nil :slant normal :weight normal :height 108 :width normal :family
"outline-arial unicode ms")))))


and these to make a frame for looking at things that don't play well with
proportional fonts, like calendar:

(make-frame '((name . "courier")
               (top . 1) (left . 1) (width . 98) (height . 17)
               (visibility . icon) ; nil or icon
               (font . "-outline-Courier
New-normal-r-normal-normal-*-*-96-96-c-*-iso10646-1")))

(select-frame-by-name "courier")

These work all right in version 21.3 but not in the latest snapshot of 22.
However, if I go to the "courier" frame and issue M-x set-frame-font, it
works okay. Does any of you have any idea why it can't be set from the
init file? --debug-init doesn't complain, it just leaves it with the
default proportional font and so gets the frame geometry wrong.

Thanks,
Ed