sccp: Fix the SCCPHelper>>#createRLSD.. invocation

This was spotted by the code critics of Pharo. Use the right class
selector to create a Connection Released message.

2 files changed, 8 insertions, 1 deletions

diff --git a/Tests.st b/Tests.st
index f2d8dab..472f832 100644
--- a/Tests.st
+++ b/Tests.st
@@ -112,6 +112,13 @@ TestCase subclass: SCCPTests [
         self assert: rlsd toMessage asByteArray = target.
     ]
 
+    testCreateRLSD [
+        | target rlsd |
+        target := #(4 154 2 0 66 5 5 0 1 0 ) asByteArray.
+        rlsd := SCCPHelper createRLSD: 16r50542 dest: 16r0029A cause: 0.
+        self assert: rlsd asByteArray = target.
+    ]
+
     testRlc [
         | target rlc |
 
diff --git a/sccp/SCCP.st b/sccp/SCCP.st
index 4778087..b73800b 100644
--- a/sccp/SCCP.st
+++ b/sccp/SCCP.st
@@ -53,7 +53,7 @@ Object subclass: SCCPHelper [
 
     SCCPHelper class >> createRLSD: src dest: dest cause: cause [
         <category: 'creation'>
-        ^ (SCCPConnectionReleased initWith: src dest: dest cause: cause)
+        ^ (SCCPConnectionReleased initWithDst: dest src: src cause: cause)
             toMessage.
     ]