*** main.c.orig	Fri May  8 01:56:12 1992
--- main.c	Mon Jun 29 10:05:44 1992
***************
*** 18,25 ****
--- 18,26 ----
  #endif
  
  #include "tkConfig.h"
  #include "tkInt.h"
+ #include <tclRawTCP.h>
  
  /*
   * Declarations for library procedures:
   */
***************
*** 280,287 ****
--- 281,301 ----
  #ifdef SQUARE_DEMO
      Tcl_CreateCommand(interp, "square", Tk_SquareCmd, (ClientData) w,
  	    (void (*)()) NULL);
  #endif
+ 
+     /*-----------------------------------------------------------------*/
+ 	 /* connect/filehandler commands */
+ 	 Tcl_CreateCommand(interp,"accept",Tcp_AcceptCmd,
+ 		(ClientData) NULL,(void (*) ()) NULL);
+ 	 Tcl_CreateCommand(interp,"shutdown",Tcp_ShutdownCmd,
+ 		(ClientData) NULL,(void (*) ()) NULL);
+ 	 Tcl_CreateCommand(interp,"connect",Tcp_ConnectCmd,
+ 		(ClientData) NULL,(void (*) ()) NULL);
+ 	 Tcl_CreateCommand(interp,"filehandler",Tcp_FileHandlerCmd,
+ 		(ClientData) NULL,(void (*) ()) NULL);
+     /*-----------------------------------------------------------------*/
+ 
      if (geometry != NULL) {
  	Tcl_SetVar(interp, "geometry", geometry, TCL_GLOBAL_ONLY);
      }
      result = Tcl_Eval(interp, initCmd, 0, (char **) NULL);
