Crash In free_list()

free_list (pList=0x0)	
free_char (ch=0x601476180)	
perform_dupe_check (d=0x601477790)	
nanny (d=0x601477790, d@entry=0x601477790, arg=0xffffc480 \"Password1\", arg@entry=0xffffc480 \"Password1\")	
game_loop (local_mother_desc=3)	
init_game (local_port=4000)	
main (argc=1, argv=<optimized out>)

db.c, free_char() @ line 3222
    /* Mud Events */
  if (ch->events != NULL) {
	  if (ch->events->iSize > 0) {
		struct event * pEvent;

		while ((pEvent = simple_list(ch->events)) != NULL)
		  event_cancel(pEvent);
	  }
+          if(ch->events)
	    free_list(ch->events);
    ch->events = NULL;
  }

May 22 17:02:53 201  :: WARNING: Attempting to merge iterator to NULL list.
May 22 17:02:53 201  :: WARNING: Attempting to remove iterator from NULL list.
May 22 17:02:53 201  :: WARNING: Attempting to remove contents that don't exist in list.

void check_regen_rates(struct char_data *ch)
{
  int gain = 0;
  long time;

  /* Incapacitated or worse won't regenerate */
  if (GET_POS(ch) < POS_STUNNED)
    return;
  
    /* Check movement regeneration */
  if (GET_MOVE(ch) < GET_MAX_MOVE(ch))
  {
    gain = move_gain(ch);
    time = (SECS_PER_MUD_HOUR*PASSES_PER_SEC)  / (gain ? gain : 1);
    /* If there is no eHIT_REGEN create one, otherwise update the existing event with the new time */
    if (!char_has_mud_event(ch, eMOVE_REGEN))
       NEW_EVENT(eMOVE_REGEN, ch, NULL, time); 
    else
        change_event_duration(ch, eMOVE_REGEN, time);
  }