*** lam-6.5.9.orig/tools/tkill/tkill.c	Mon Jan 27 17:11:43 2003
--- lam-6.5.9/tools/tkill/tkill.c	Thu May  1 10:54:18 2003
***************
*** 241,246 ****
--- 241,253 ----
  	if (fl_pretend) {
  	    exit(0);
  	}
+ 
+ 	if (fclose(fp_kill)) {
+ 	  snprintf(extra, 1024, "fclose(for file \"%s\")", f_kill);
+ 	  show_help(NULL, "lib-call-fail", extra, NULL);
+ 	  exit(errno);
+ 	}
+ 
  /*
   * Cleanup all registered objects.
   */