diff --git a/callagent/MGCPCommands.st b/callagent/MGCPCommands.st
index 921701c..ef9d713 100644
--- a/callagent/MGCPCommands.st
+++ b/callagent/MGCPCommands.st
@@ -69,6 +69,10 @@ Object subclass: MGCPCommandBase [
 	transaction := anId.
     ]
 
+    transactionId [
+        ^transaction
+    ]
+
     parameterAdd: aParam [
 	<category: 'private'>
         ^self error: 'This is deprecated. Use >>#addParameter:with:'
diff --git a/callagent/MGCPResponse.st b/callagent/MGCPResponse.st
index c932a1e..0d5f5f1 100644
--- a/callagent/MGCPResponse.st
+++ b/callagent/MGCPResponse.st
@@ -44,6 +44,11 @@ Object subclass: MGCPResponse [
     ]
 
     transaction: aTrans [
+        <category: 'creation'>
+        self transactionId: aTrans
+    ]
+
+    transactionId: aTrans [
         <category: 'creation'>
         transaction := aTrans.
     ]