diff -rc tk4.1a2/generic/tkBitmap.c tk4.1a2-vms/generic/tkBitmap.c
*** tk4.1a2/generic/tkBitmap.c	Thu Oct 05 12:18:15 1995
--- tk4.1a2-vms/generic/tkBitmap.c	Tue Oct 10 09:16:24 1995
***************
*** 182,187 ****
--- 182,199 ----
  	if (string == NULL) {
  	    goto error;
  	}
+ #ifdef VMS
+ 	{
+ 	    /*
+ 		XReadBitmapFile fails is there is no extension.
+ 	    */
+ 	    char	ext[33];
+ 
+ 	    Tcl_VmsParseFileName(string, "extension", ext);
+ 	    if (ext[0] == 0)
+ 		strcat(string, ".");
+ 	}
+ #endif	/* VMS */
  	result = XReadBitmapFile(Tk_Display(tkwin),
  		RootWindowOfScreen(nameKey.screen), string,
  		(unsigned int *) &width, (unsigned int *) &height,
diff -rc tk4.1a2/generic/tkCanvLine.c tk4.1a2-vms/generic/tkCanvLine.c
*** tk4.1a2/generic/tkCanvLine.c	Wed Sep 27 11:29:54 1995
--- tk4.1a2-vms/generic/tkCanvLine.c	Tue Oct 10 09:16:25 1995
***************
*** 813,819 ****
--- 813,823 ----
  				 * had to be treated as beveled after all
  				 * because the angle was < 11 degrees. */
  
+ #ifdef VMS
+     bestDist = 1.0e36;
+ #else	/* !VMS */
      bestDist = 1.0e40;
+ #endif	/* VMS */
  
      /*
       * Handle smoothed lines by generating an expanded set of points
diff -rc tk4.1a2/generic/tkCanvPs.c tk4.1a2-vms/generic/tkCanvPs.c
*** tk4.1a2/generic/tkCanvPs.c	Fri Aug 04 13:05:15 1995
--- tk4.1a2-vms/generic/tkCanvPs.c	Sat Oct 07 14:30:19 1995
***************
*** 351,357 ****
  
      Tcl_AppendResult(canvasPtr->interp, "%!PS-Adobe-3.0 EPSF-3.0\n",
  	    "%%Creator: Tk Canvas Widget\n", (char *) NULL);
! #if !(defined(_Windows) || defined(MAC_TCL))
      pwPtr = getpwuid(getuid());
      Tcl_AppendResult(canvasPtr->interp, "%%For: ",
  	    (pwPtr != NULL) ? pwPtr->pw_gecos : "Unknown", "\n",
--- 351,357 ----
  
      Tcl_AppendResult(canvasPtr->interp, "%!PS-Adobe-3.0 EPSF-3.0\n",
  	    "%%Creator: Tk Canvas Widget\n", (char *) NULL);
! #if !(defined(_Windows) || defined(MAC_TCL) || defined(VMS))
      pwPtr = getpwuid(getuid());
      Tcl_AppendResult(canvasPtr->interp, "%%For: ",
  	    (pwPtr != NULL) ? pwPtr->pw_gecos : "Unknown", "\n",
diff -rc tk4.1a2/generic/tkPort.h tk4.1a2-vms/generic/tkPort.h
*** tk4.1a2/generic/tkPort.h	Wed Jul 12 15:46:25 1995
--- tk4.1a2-vms/generic/tkPort.h	Sat Oct 07 08:44:15 1995
***************
*** 26,31 ****
--- 26,33 ----
  #    include "tkWinPort.h"
  #elif defined(MAC_TCL)
  #    include "tkMacPort.h"
+ #elif defined(VMS)
+ #    include "tkVmsPort.h"
  #else
  #    include "tkUnixPort.h"
  #endif
diff -rc tk4.1a2/generic/tkTrig.c tk4.1a2-vms/generic/tkTrig.c
*** tk4.1a2/generic/tkTrig.c	Wed Jul 12 15:46:39 1995
--- tk4.1a2-vms/generic/tkTrig.c	Sat Oct 07 08:59:08 1995
***************
*** 465,471 ****
--- 465,475 ----
       * count it as two intersections.
       */
  
+ #ifdef VMS
+     bestDist = 1.0e36;
+ #else	/* !VMS */
      bestDist = 1.0e40;
+ #endif	/* VMS */
      intersections = 0;
  
      for (count = numPoints, pPtr = polyPtr; count > 1; count--, pPtr += 2) {