diff --git a/callagent/MGCPCommands.st b/callagent/MGCPCommands.st
index 2be7190..8fa2c6e 100644
--- a/callagent/MGCPCommands.st
+++ b/callagent/MGCPCommands.st
@@ -31,6 +31,13 @@ Object subclass: MGCPCommand [
             yourself
     ]
 
+    MGCPCommand class >> create: anEndpoint transId: aTransId [
+        ^ (self new)
+            transactionId: aTransId;
+	    endpoint: anEndpoint;
+            yourself
+    ]
+
     verb: aVerb [
 	<category: 'private'>
 	verb := aVerb.
@@ -78,7 +85,7 @@ Object subclass: MGCPCommand [
             cr; nl.
 
         "write the parameters"
-        params do: [:each |
+        self params do: [:each |
             out
                 nextPutAll: each;
                 cr; nl.
@@ -138,3 +145,14 @@ MGCPCommand subclass: MGCPDLCXCommand [
             yourself
     ]
 ]
+
+MGCPCommand subclass: MGCPAUEPComamnd [
+    <comment: 'I represent an AUEP message'>
+    <category: 'MGCP-Callagent'>
+
+    MGCPAUEPComamnd class >> createAUEP: anEndpoint transId: aTransId [
+        ^ (self create: anEndpoint transId: aTransId)
+            verb: 'AUEP';
+            yourself
+    ]
+]