fix new RBN spot typos

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 8cebcbf3e8cda55b6ed51f5cfd9e18146cf8430b..b78e9d4be24cffc77f45730580a49936b9321e38 100644 (file)
--- 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;