X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRBN.pm;h=b78e9d4be24cffc77f45730580a49936b9321e38;hb=ea366aefc6157af48d60f939f6b6d00e6d55f438;hp=8cebcbf3e8cda55b6ed51f5cfd9e18146cf8430b;hpb=cbcd5d8a28ea8d7994987c1f514ea691870a6cfa;p=spider.git

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 8cebcbf3..b78e9d4b 100644
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -259,8 +259,8 @@ sub normal
 		# create record and add into the buildup
 		my $r = [$origin, nearest(.1, $qrg), $call, $mode, $s, $t, $utz, $respot, $u];
 		dbg("RBN: key: '$sp' ADD RECORD call: $call qrg: $qrg origin: $origin") if isdbg('rbn');
-		my @s =  Spot::prepare($r->[1], $r->[2], $r->[6], $comment, $r->[0]);
-		$r-[9] = \@s';
+		my @s =  Spot::prepare($r->[1], $r->[2], $r->[6], '', $r->[0]);
+		$r->[9] = \@s;
 
 		push @$spot, $r;