Software Quality Assurance Forums: Type redifinition in script that include 2 headers

For example,
Type.sbh has:
Type person_record
name As String
gender As String
End Type

DB_Util.sbh has:
'$Include "Type.sbh"
Declare Function Get_Person BasicLib "DB_Util" (name As String) As person_record
Declare Sub Update_Person BasicLib "DB_Util" (person As person_record)

Person_Mod.sbh has:
'$Include "Type.sbh"
Declare Sub Update_Name BasicLib "Person_Mod" (person As person_record, newName As String)

Person_Mod.sbl has:
'$Include "DB_Util.sbh"
Sub Update_Name BasicLib "Data_Mod" (person As person_record, newName As String)
person.name = newName
Update_Person(person)
End Sub

Test.rec has:
'$Include "DB_Util.sbh"
'$Include "Person_Mod.sbh"

Sub Main
Dim person as person_record
person = Get_Person("oldName")
Update_Name(person, "newName")
End Sub

When compiling Test.rec, an type redefinition error for person_record would be returned.
How you guys think to fix this?
Thanks.