diff --git a/gbproxy/GBProxy_Tests.ttcn b/gbproxy/GBProxy_Tests.ttcn
index d6c8bb140..0145c97ff 100644
--- a/gbproxy/GBProxy_Tests.ttcn
+++ b/gbproxy/GBProxy_Tests.ttcn
@@ -1928,6 +1928,10 @@ testcase TC_paging_cs_sig_bvci_unknown() runs on test_CT {
 	f_cleanup();
 }
 
+/***********************************************************************
+ * FLUSH-LL procedure
+ ***********************************************************************/
+
 private function f_TC_flush_ll(charstring id) runs on BSSGP_ConnHdlr {
 	var BssgpBvci bvci := g_pars.pcu[0].cfg.bvc[0].bvci;
 	var integer i;
@@ -1958,6 +1962,10 @@ testcase TC_flush_ll() runs on test_CT
 	f_cleanup();
 }
 
+/***********************************************************************
+ * SGSN-INVOKE-TRACE procedure
+ ***********************************************************************/
+
 private altstep as_bssgp_g_pcu_count(integer pcu_idx, template (present) PDU_BSSGP exp_rx, inout ro_integer roi)
 runs on GlobalTest_CT {
 [] G_PCU[pcu_idx].receive(exp_rx) from g_pcu[pcu_idx].vc_BSSGP {
@@ -1998,6 +2006,10 @@ testcase TC_trace() runs on GlobalTest_CT
 	f_cleanup();
 }
 
+/***********************************************************************
+ * LLC-DISCARDED procedure
+ ***********************************************************************/
+
 private function f_TC_llc_discarded(charstring id) runs on BSSGP_ConnHdlr {
 	var BssgpBvci bvci := g_pars.pcu[0].cfg.bvc[0].bvci;
 
@@ -2022,6 +2034,10 @@ testcase TC_llc_discarded() runs on test_CT
 	f_cleanup();
 }
 
+/***********************************************************************
+ * OVERLOAD procedure
+ ***********************************************************************/
+
 /* Send an OVERLOAD from SGSN side and expect it to show up on each PCU (SIG BVC) */
 testcase TC_overload() runs on GlobalTest_CT
 {
@@ -2051,6 +2067,10 @@ testcase TC_overload() runs on GlobalTest_CT
 	f_cleanup();
 }
 
+/***********************************************************************
+ * BVC-BLOCK / BVC-UNBLOCK procedure
+ ***********************************************************************/
+
 private function f_block_ptp_bvc_from_pcu(integer pcu_idx, integer bvc_idx) runs on test_CT
 {
 	var BSSGP_BVC_CT bvc_ct := g_pcu[pcu_idx].vc_BSSGP_BVC[bvc_idx];
@@ -2105,6 +2125,10 @@ testcase TC_bvc_unblock_ptp() runs on test_CT
 	f_cleanup();
 }
 
+/***********************************************************************
+ * BVC-RESET procedure
+ ***********************************************************************/
+
 private altstep as_ignore_status(BSSGP_BVC_MGMT_PT pt) {
 [] pt.receive(BssgpStatusIndication:?) { repeat; }
 }