*** /usr/tcltk823/dp40b2/unix/configure~	Sun Dec 14 15:52:26 1997
--- /usr/tcltk823/dp40b2/unix/configure	Mon Jan 10 22:56:47 2000
***************
*** 772,790 ****
  # DP's generic socket code while Tcl 8.x uses
  # the socket code in the OS dir
  #
! if test $TCL_VERSION -eq 7 ; then
! 
! IPM=\$\(GENERIC_DIR\)/dpIPM.c
! TCP=\$\(GENERIC_DIR\)/dpTcp.c
! UDP=\$\(GENERIC_DIR\)/dpUdp.c
! 
! else
  
  IPM=\$\(UNIX_DIR\)/dpUnixIpm.c
  TCP=\$\(UNIX_DIR\)/dpUnixTcp.c
  UDP=\$\(UNIX_DIR\)/dpUnixUdp.c
  
! fi
  
  
  
--- 772,790 ----
  # DP's generic socket code while Tcl 8.x uses
  # the socket code in the OS dir
  #
! #if test $TCL_VERSION -eq 7 ; then
! #
! #IPM=\$\(GENERIC_DIR\)/dpIPM.c
! #TCP=\$\(GENERIC_DIR\)/dpTcp.c
! #UDP=\$\(GENERIC_DIR\)/dpUdp.c
! #
! #else
  
  IPM=\$\(UNIX_DIR\)/dpUnixIpm.c
  TCP=\$\(UNIX_DIR\)/dpUnixTcp.c
  UDP=\$\(UNIX_DIR\)/dpUnixUdp.c
  
! #fi
  
  
  
*** /usr/tcltk823/dp40b2/generic/dpInit.c~	Sun Dec 14 15:52:18 1997
--- /usr/tcltk823/dp40b2/generic/dpInit.c	Mon Jan 10 23:02:04 2000
***************
*** 65,73 ****
      if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 1) == NULL) {
  	return TCL_ERROR;
      }
!     if (TclHasSockets(interp) != TCL_OK) {
! 	return TCL_ERROR;
!     }
  
      Tcl_SetVar(interp, "dp_patchLevel", DP_PATCH_LEVEL, TCL_GLOBAL_ONLY);
      Tcl_SetVar(interp, "dp_version", DP_VERSION, TCL_GLOBAL_ONLY);
--- 65,73 ----
      if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 1) == NULL) {
  	return TCL_ERROR;
      }
! /*     if (TclHasSockets(interp) != TCL_OK) { */
! /* 	return TCL_ERROR; */
! /*     } */
  
      Tcl_SetVar(interp, "dp_patchLevel", DP_PATCH_LEVEL, TCL_GLOBAL_ONLY);
      Tcl_SetVar(interp, "dp_version", DP_VERSION, TCL_GLOBAL_ONLY);