diff --git a/bsc/BSC_Tests.ttcn b/bsc/BSC_Tests.ttcn
index c2cf8d3..ed56fc2 100644
--- a/bsc/BSC_Tests.ttcn
+++ b/bsc/BSC_Tests.ttcn
@@ -8257,7 +8257,7 @@
 	BSSAP.send(RAN_Conn_Prim:MSC_CONN_PRIM_DISC_REQ);
 }
 
-private function f_perform_clear_test_ct(DchanTuple dt)
+friend function f_perform_clear_test_ct(DchanTuple dt)
 	runs on test_CT
 {
 	/* Instruct BSC to clear channel */