gsmdriver: Send a Classmark Change after the connection is confirmed

GSMDriver.st

@@ -192,6 +192,10 @@ classes.'>
             each serviceAccepted.
         ].
     ]
+
+    onConnectionConfirmed [
+        mainProc connectionConfirmed.
+    ]
 ]
 
 Object subclass: ProcedureBase [
@@ -240,6 +244,12 @@ Object subclass: ProcedureBase [
         "I should return the initial message of the transaction"
         self subclassResponsibility
     ]
+
+    connectionConfirmed [
+        | cm |
+        cm := GSM48RRClassmarkChange new.
+        conn nextPutData: (BSSAPDTAP initWith: cm linkIdentifier: 0).
+    ]
 ]