merge for universal builds (was: Re: [31954] trunk/base/src/port1.0/portutil.tcl)