Index: Tk/unix/tkUnixSend.c
*** Tk/unix/tkUnixSend.c.orig Sat, 03 Jan 1998 12:46:25 +0000 eg (STk/c/b/6_tkUnixSend 1.1 644) 3.99.1.22
--- Tk/unix/tkUnixSend.c      Thu, 21 May 1998 19:33:23 +0000 eg (STk/c/b/6_tkUnixSend 1.1 644) 3.99.2.1(w)
***************
*** 802,808 ****
--- 802,812 ----
  	    if (i == 2) {
  		Tcl_DStringInit(&dString);
  		Tcl_DStringAppend(&dString, name, -1);
+ #ifdef STk_CODE
+ 		Tcl_DStringAppend(&dString, "#", 1);
+ #else
  		Tcl_DStringAppend(&dString, " #", 2);
+ #endif
  		offset = Tcl_DStringLength(&dString);
  		Tcl_DStringSetLength(&dString, offset+10);
  		actualName = Tcl_DStringValue(&dString);