diff --git a/CSE/IO/cCriteria.vb b/CSE/IO/cCriteria.vb
index f57d8d0016bbf96ccabe750687d07cbdbb18f469..2021db7f4ac784d31283f5b1d7312e95b8fca2d2 100644
--- a/CSE/IO/cCriteria.vb
+++ b/CSE/IO/cCriteria.vb
@@ -395,6 +395,10 @@ Public Class cCriteria
         Me.t_amb_min = g("t_amb_min")
     End Sub
 
+    Public Sub OnBeforeContentStored_hack()
+        Me.OnBeforeContentStored()
+    End Sub
+
     ''' <summary>Override it to set custome fields</summary>
     Protected Overrides Sub OnBeforeContentStored()
         Dim g, b As Object
diff --git a/CSE/IO/cJob.vb b/CSE/IO/cJob.vb
index 5efb76969a4d1afea081588ae346193b89ceead1..16f667160558ea39f20188bce7728827566d9162 100644
--- a/CSE/IO/cJob.vb
+++ b/CSE/IO/cJob.vb
@@ -267,6 +267,9 @@ Public Class cJob
         b.valid_t_tire = valid_t_tire
         b.valid_t_amb = valid_t_amb
         b.valid_RRC = valid_RRC
+
+        Crt.OnBeforeContentStored_hack()
+        Me.Criteria = Crt
     End Sub
 
     Public Property vehicle_fpath As String