Ugly default Tk font on Mac OS

<Tcl> test 

tkfont.actual("test") # Wrong

<Tcl> -family {Bitstream Vera Sans} -size 12 -weight normal -slant roman -underline 0 -overstrike 0 

tkfont.actual("TkDefaultFont") # OK

<Tcl> -family {Bitstream Vera Sans} -size -12 -weight normal -slant roman -underline 0 -overstrike 0 

tkfont.actual("systemSystemFont) # Wrong

(Actually there was a trailing "+" sign aft the last one because of amissing quote.

tkfont.actual("systemSystemFont") # Wrong

<Tcl> -family {Bitstream Vera Sans} -size 12 -weight normal -slant roman -underline 0 -overstrike 0 

I don't know if I need to update to the current Rcmdr, since this was earlier done without it being loaded.

But I did and then here goes:

require(Rcmdr)> library(tcltk)
.Tcl("font create test")

Error in structure(.External("dotTcl", ..., PACKAGE = "tcltk"), class = "tclObj") : 
  [tcl] named font "test" already exists.

tkfont.actual("test") # Wrong

<Tcl> -family {Bitstream Vera Sans} -size 12 -weight normal -slant roman -underline 0 -overstrike 0 

tkfont.actual("TkDefaultFont") # OK

<Tcl> -family {Bitstream Vera Sans} -size -12 -weight normal -slant roman -underline 0 -overstrike 0 

tkfont.actual("systemSystemFont") # Wrong

<Tcl> -family {Bitstream Vera Sans} -size 12 -weight normal -slant roman -underline 0 -overstrike 0 

I see a "Script Window and an Output Window but admit considerable
difficulty with its very non-Mac-ish interface conventions (no cut and
paste, unclear what the submit button requires for proper operation);

I seem to be getting the same font being identified when I run these
tests from the "Script Window" but the Output Window was not allowing
me to copy to the Clipboard in the various efforts I have made. This
is the output of the Save Output as ... pulldown menu:

tkfont.actual("test")

<Tcl> -family {Bitstream Vera Sans} -size 12 -weight normal -slant roman -underline 0 -overstrike 0 

tkfont.actual("TkDefaultFont")

<Tcl> -family {Bitstream Vera Sans} -size -12 -weight normal -slant roman -underline 0 -overstrike 0