--- projects/cms/source/host/ihost-perl/ihost.pl	2001/11/19 14:15:14	1.37
+++ projects/cms/source/host/ihost-perl/ihost.pl	2001/11/19 15:07:56	1.38
@@ -8,7 +8,7 @@
 # a typical Unix/Linux box.
 #
 # $Author: tdb $
-# $Id: ihost.pl,v 1.37 2001/11/19 14:15:14 tdb Exp $
+# $Id: ihost.pl,v 1.38 2001/11/19 15:07:56 tdb Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -289,7 +289,7 @@ sub send_udp_packet() {
     print $sock $xml or die "Could not send UDP packet: $!\n";
     close($sock);
     $seq_no++;
-    print "-: $xml\n";
+    print "-";
     
     return;
 }