diff --git a/OC/CatEstatus.aspx.vb b/OC/CatEstatus.aspx.vb
index 84303384c..f44f0a3d6 100644
--- a/OC/CatEstatus.aspx.vb
+++ b/OC/CatEstatus.aspx.vb
@@ -280,7 +280,7 @@ Partial Class OC_CatEstatus
         Dim CveSuperior As Integer = If(tblSuperior.Visible = True, ddlSuperior.SelectedValue.ToEntero, -1)
 
         If hdnCveEstatusUsuarios.Value.ToEntero = -1 Then
-            If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, CboSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior) Then
+            If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, CboSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior, UsuarioActual.CveUsuario) Then
                 RegistraScript(String.Format("{0}.style.background-color='yellow'", IDCellYellow.Value))
 
             End If