*** gstk_srv.tcl	Mon Sep 17 11:13:31 2001
--- gstk_srv.tcl.old	Thu Nov 23 07:07:07 2000
***************
*** 45,51 ****
  wm withdraw .
  set command ""
  
! fileevent stdin readable {
      set line [gets stdin]
      append command "$line\n"
      if [info complete "${command}\n"] {
--- 45,51 ----
  wm withdraw .
  set command ""
  
! fileevent stdin active {
      set line [gets stdin]
      append command "$line\n"
      if [info complete "${command}\n"] {
