From 8f1ee675569aad9b6f8a5e8172c60cf548d5043c Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Sat, 24 Nov 2012 10:35:26 +0100
Subject: [PATCH] gsm: Add a selector for the TMSI to the MIdentity

---
 GSM48.st | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/GSM48.st b/GSM48.st
index a7bad46..d5502e7 100644
--- a/GSM48.st
+++ b/GSM48.st
@@ -597,6 +597,13 @@ GSM48VariableSizedIE subclass: GSM48MIdentity [
         ^ id
     ]
 
+    tmsi [
+        <category: 'query'>
+        self type = GSM48IdentityType typeTMSI
+            ifFalse: [^self error: 'Underlying type is not a TMSI'].
+        ^ id
+    ]
+
     id: anId [
         <category: 'creation'>
         id := anId