diff --git a/Tests.st b/Tests.st
index 46a0425..4c3556c 100644
--- a/Tests.st
+++ b/Tests.st
@@ -544,7 +544,7 @@ TestCase subclass: TestMessages [
         msg := MSGParser parse: inp.
         self assert: msg toMessage asByteArray = inp.
 
-        "Supplementary services here"
+        "Supplementary services here. GSM48SSRegister"
         inp := #( 16r06 16r01 16r0C 16rAA 16r00 16r01 16r1F 16r01 16r80 16r1C 16r0B 16r7B 16r1C 16r15 16rA1 16r13 16r02 16r01 16r04 16r02 16r01 16r3B 16r30 16r0B 16r04 16r01 16r0F 16r04 16r06 16r2A 16rD5 16r4C 16r16 16r1B 16r01 16r7F 16r01 16r00) asByteArray.
         msg := MSGParser parse: inp.
         self assert: msg toMessage asByteArray = inp.