Traceability Link 'Traceability Link' (Traceability Link): Both link extremities should be defined

Hi,

I need some help with Traceability Links. I'm getting following error message when checking in the model into the repository:

Traceability Link 'Business Process Model 'Corporate Funding Back Office'' (Business Process Model 'Corporate Funding Back Office'): Both link extremities should be defined

The check in of the document has been cancelled.

I don't undestand the error message, since everything looks OK:

1. Outgoing Traceability Link

2. Incomming Traceability Link

And this is how it looks like in the Impact Analysis:

This is the procedure I'm using to create the Traceability Links:

Sub CreateOTL(linkSource, linkTarget)
Dim otl, otl_exists, new_otl
otl_exists = FALSE

For Each otl In linkSource.OutgoingTraceabilityLinks
If (otl.SourceObject = linkSource) Then
If (otl.LinkedObject.isShortcut()) Then
If Not (otl.LinkedObject.TargetObject Is Nothing) Then
If (otl.LinkedObject.TargetObject = linkTarget) Then
otl_exists = TRUE
End If
End If
Else
If (otl.LinkedObject = linkTarget) Then
otl_exists = TRUE
End If
End If
End If
If (otl_exists) Then
Exit For
End If
Next

If Not (otl_exists) Then
Set new_otl = linkSource.Model.CreateObject(cls_ExtendedDependency)
new_otl.LinkType = "Created automatically by Sync Script"
linkSource.OutgoingTraceabilityLinks.Add(new_otl)
linkTarget.IncomingTraceabilityLinks.Add(new_otl)

Print "INFO", "OutputTraceabilityLink >>> " + linkSource + " (from " + linkSource.Model + ") --> " + linkTarget + " (from " + linkTarget.Model + ") <<< created"
Else
Print "DEBUG", "OutputTraceabilityLink >>> " + linkSource + " (from " + linkSource.Model + ") --> " + linkTarget + " (from " + linkTarget.Model + ") <<< already exists"
End If
End Sub

What am I doing wrong? The links looks OK, the only problem is the Chech-In

Any ideas?