diff --git a/agc_2-X/branches/agc_2.2.0/bin/AST_cleanup_agent_log.pl b/agc_2-X/branches/agc_2.2.0/bin/AST_cleanup_agent_log.pl
index 7c48ba09..25fd77e4 100644
--- a/agc_2-X/branches/agc_2.2.0/bin/AST_cleanup_agent_log.pl
+++ b/agc_2-X/branches/agc_2.2.0/bin/AST_cleanup_agent_log.pl
@@ -176,7 +176,7 @@ if ($TWENTYFOUR_HOURS > 0)
 		$TDSQLdate = "$Tyear-$Tmon-$Tmday $Thour:$Tmin:$Tsec";
 
 	$VDAD_SQL_time = "and event_time > \"$TDSQLdate\" and event_time < \"$FDSQLdate\"";
-	$VDCL_SQL_time = "and call_date > \"$TDSQLdate\" and event_time < \"$FDSQLdate\"";
+	$VDCL_SQL_time = "and call_date > \"$TDSQLdate\" and call_date < \"$FDSQLdate\"";
 	$QM_SQL_time = "and time_id > $TDtarget and time_id < $FDtarget";
 	$QM_SQL_time_H = "and time_id > $TDtarget and time_id < $HDtarget";
 	}