diff --git a/TCAP/src/ANSI/tcap_tsm_fsm.erl b/TCAP/src/ANSI/tcap_tsm_fsm.erl
index bcbffbc..bd83aca 100644
--- a/TCAP/src/ANSI/tcap_tsm_fsm.erl
+++ b/TCAP/src/ANSI/tcap_tsm_fsm.erl
@@ -97,7 +97,7 @@ idle({'BEGIN', received, SccpParms}, State)
 	%% Start a Dialogue Handler (DHA)
 	SupId = list_to_atom("dha_sup_" ++ integer_to_list(State#state.localTID)),
 	StartFunc = {supervisor, start_link,
-			[dialogue_sup, [{State#state.usap, State#state.localTID, self()}]]},
+			[tcap_dialogue_sup, [{State#state.usap, State#state.localTID, self()}]]},
 	ChildSpec = {SupId, StartFunc, permanent, infinity, supervisor, [dialogue_sup]},
 	{ok, DHA} = supervisor:start_child(State#state.supervisor, ChildSpec),
 	QOS = {SccpParms#'N-UNITDATA'.sequenceControl, SccpParms#'N-UNITDATA'.returnOption},
diff --git a/TCAP/src/ITU/tcap_tsm_fsm.erl b/TCAP/src/ITU/tcap_tsm_fsm.erl
index 0451a64..54baef3 100644
--- a/TCAP/src/ITU/tcap_tsm_fsm.erl
+++ b/TCAP/src/ITU/tcap_tsm_fsm.erl
@@ -96,7 +96,7 @@ idle({'BEGIN', received, SccpParms}, State)
 	%% Start a Dialogue Handler (DHA)
 	SupId = list_to_atom("dha_sup_" ++ integer_to_list(State#state.localTID)),
 	StartFunc = {supervisor, start_link,
-			[dialogue_sup, [{State#state.usap, State#state.localTID, self()}]]},
+			[tcap_dialogue_sup, [{State#state.usap, State#state.localTID, self()}]]},
 	ChildSpec = {SupId, StartFunc, permanent, infinity, supervisor, [dialogue_sup]},
 	{ok, DHA} = supervisor:start_child(State#state.supervisor, ChildSpec),
 	QOS = {SccpParms#'N-UNITDATA'.sequenceControl, SccpParms#'N-UNITDATA'.returnOption},