diff --git a/sccp/SCCPAddress.st b/sccp/SCCPAddress.st
index 8d8130d..5d240c6 100644
--- a/sccp/SCCPAddress.st
+++ b/sccp/SCCPAddress.st
@@ -129,13 +129,23 @@ Object subclass: SCCPAddress [
         ^ gti_ind
     ]
 
-    gti: aGlobalTitle indicator: aGtiInd [
+    globalTitle: aGlobalTitle indicator: aGtiInd [
         <category: 'gti'>
         globalTitle := aGlobalTitle.
         gti_ind := aGtiInd bitAnd: 16rF.
     ]
 
+    gti: aGlobalTitle indicator: aGtiInd [
+        <category: 'gti'>
+        self globalTitle: aGlobalTitle indicator: aGtiInd
+    ]
+
     gtiAsParsed [
+        <category: 'gti'>
+        ^self parseGlobalTitle
+    ]
+
+    parseGlobalTitle [
         <category: 'gti'>
         ^ gti_ind = 0
             ifTrue:  [nil]
diff --git a/sccp/SCCPGlobalTitleTranslation.st b/sccp/SCCPGlobalTitleTranslation.st
index 8141542..6b1fde1 100644
--- a/sccp/SCCPGlobalTitleTranslation.st
+++ b/sccp/SCCPGlobalTitleTranslation.st
@@ -74,9 +74,14 @@ SCCPGlobalTitle subclass: SCCPGlobalTitleTranslation [
         nature := aNai
     ]
 
+    address [
+        <category: 'accessing'>
+        ^addr 
+    ]
+
     addr [
         <category: 'accessing'>
-        ^ addr
+        ^self address
     ]
 
     addr: anAddr [