diff --git a/PROMS/VEPROMS User Interface/dlgApproveProcedure.cs b/PROMS/VEPROMS User Interface/dlgApproveProcedure.cs
index 0da1a8a0..42219be0 100644
--- a/PROMS/VEPROMS User Interface/dlgApproveProcedure.cs	
+++ b/PROMS/VEPROMS User Interface/dlgApproveProcedure.cs	
@@ -395,11 +395,14 @@ namespace VEPROMS
 			lblPhase.Text = z.ToString();
 			string oldLabel = lblMore.Text;
 			pbMore.Visible = true;
-			pbMore.Maximum = _MyApproval.MyProcedures.Count;
 			ItemInfoList.ConsistencyCheckUpdated += new ItemInfoListCCEvent(ItemInfoList_ConsistencyCheckUpdated);
 			List<ProcedureInfo> myProcs = new List<ProcedureInfo>();
-			foreach (ApprovalProcedure ap in _MyApproval.MyProcedures)
-				myProcs.Add(ap.ProcInfo);
+			// B2018-136 use the list of procedures that have checkboxes and are checked (right panel) instead of the list to be approved (left panel)
+			//           when doing a consistency check
+			for (int i = 0; i < clbMore.Items.Count; i++)
+				if (clbMore.GetItemChecked(i))
+					myProcs.Add(GetProcedureInfoByKey(clbMore.Items[i].ToString()));
+			pbMore.Maximum = myProcs.Count;
 			_MyItemInfoList = ItemInfoList.GetMoreProcedures(myProcs);
 			ItemInfoList.ConsistencyCheckUpdated -= new ItemInfoListCCEvent(ItemInfoList_ConsistencyCheckUpdated);
 			lblMore.Text = oldLabel;