From 974132fc71b24d52a34484178d22b97c5ccecef9 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 27 Nov 2000 09:45:43 +0000
Subject: [PATCH] some cosmetic changes to error messages on pc16/19

---
 perl/DXProt.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 03253bf0..da138878 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -539,7 +539,7 @@ sub normal
 						dbg('chan', "LOOP: $call is a node");
 						next;
 					}
-					my $rcall = $ref->call;
+					my $rcall = $ref->mynode->call;
 					dbg('chan', "LOOP: already have $call on $rcall");
 					next;
 				}
@@ -644,7 +644,8 @@ sub normal
 						dbg('chan', "LOOP: $call come in on wrong channel");
 						next;
 					}
-					dbg('chan', "already have $call");
+					my $rcall = $node->mynode->call;
+					dbg('chan', "already have $call on $rcall");
 					next;
 				}
 				
-- 
2.43.0