From 6fd7bf277508cf139cfa598c5bee5a3ef07be431 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Sat, 18 Dec 2010 16:49:38 +0100
Subject: [PATCH] GSM48: Make the GSM48Message return the real type of the
 message

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

diff --git a/GSM48.st b/GSM48.st
index 160688d..411cd41 100644
--- a/GSM48.st
+++ b/GSM48.st
@@ -880,6 +880,10 @@ IEMessage subclass: GSM48MSG [
         "by default treat it like a spare"
         ^ 0
     ]
+
+    type [
+        ^ self class messageType
+    ]
 ]
 
 GSM48MSG subclass: GSM48MMMessage [