diff --git a/callagent/MGCPCallAgent.st b/callagent/MGCPCallAgent.st
index dd9d1d0..672b018 100644
--- a/callagent/MGCPCallAgent.st
+++ b/callagent/MGCPCallAgent.st
@@ -1,5 +1,5 @@
 "
- (C) 2010-2011 by Holger Hans Peter Freyther
+ (C) 2010-2012 by Holger Hans Peter Freyther
  All Rights Reserved
 
  This program is free software: you can redistribute it and/or modify
@@ -68,6 +68,7 @@ Object subclass: MGCPCallAgentBase [
 
         "Receive datagrams from the socket..."
         rx := [
+            Processor activeProcess name: 'MGCP RX'.
             [ | data |
                 data := socket next.
                 data ifNotNil: [
@@ -78,6 +79,7 @@ Object subclass: MGCPCallAgentBase [
 
         "Send data to the MGWs"
         tx := [
+            Processor activeProcess name: 'MGCP TX'.
             [ | data |
                 data := queue next. 
                 socket nextPut: data.