*** process.c.~1.584.~	2009-05-02 15:54:45.000000000 +0400
--- process.c	2009-06-08 21:00:15.000000000 +0400
***************
*** 470,476 ****
  	signame = "unknown";
        string = build_string (signame);
        string2 = build_string (coredump ? " (core dumped)\n" : "\n");
!       SSET (string, 0, DOWNCASE (SREF (string, 0)));
        return concat2 (string, string2);
      }
    else if (EQ (symbol, Qexit))
--- 470,483 ----
  	signame = "unknown";
        string = build_string (signame);
        string2 = build_string (coredump ? " (core dumped)\n" : "\n");
! 
!       {
!         int c;
! 
!         c = STRING_CHAR ((char *) SDATA (string), 0);
!         Faset (string, 0, make_number (DOWNCASE (c)));
!       }
! 
        return concat2 (string, string2);
      }
    else if (EQ (symbol, Qexit))