🚀 go-pugleaf

[This line brought to through the miracle of modern science.....]

Aaugh!  I'm gonna start pulling hair soon!  The following is what I do.
All definitions are supplied below, as well as the EXACT code:
-------------------------------------------------------------------------------

VAR
   Gfx, Intu, Dfon : LibraryPtr;
   ft              : TextFontPtr;
   ta              : TextAttr;
   win             : WindowPtr;

BEGIN
   Gfx := OpenLibrary(ADR("graphics.library"),0);   (* Just in case *)
   Intu := OpenLibrary(ADR("intuition.library"),0); (* Just in case *)
   Dfon := OpenLibrary(ADR("diskfont.library"),0);  

   (* Code ommited to check and see if every library opened ok.  When I
      run this bugger, everything opens as required *)

   (* But just in case, the way I check is:
      IF (Dfon = NIL) THEN .... (error) *)

   ta.taName := ADR("diamond.font");
   ta.taSize := 20;
   ta.taStyle := FontStyleSet{};
   ta.taFlags := FontFlagsSet{};

   ft := OpenDiskFont(ta);
   SetFont(win^.RPort^,ft^);

   .
   .
   .
   
-------------------------------------------------------------------------------

Now, the code drops dead at the OpenDiskFont call.  What am I doing wrong?
As far as I can see, it should work.  I have added all your responses so far
(diamond.font in lowercase, adding the diskfont.library, etc) but still this
turkey refuses to fly.

Any clues, hints, pointing fingers?
===============================================================================
Burton Choinski                                             Prime Computer Inc.
tran@hobbiton.prime.com     
        - or -
choinski@hobbiton.prime.com