--- Dns.pm	2003-09-10 09:52:37.000000000 +0100
+++ lib/Mail/SpamAssassin/Dns.pm   2003-09-10 09:55:29.000000000 +0100
@@ -300,7 +300,10 @@
   dbg("RBL: success for " . ($total - @left) . " of $total queries", "rbl", 0);
   # timeouts
   for my $query (@left) {
-    my $rules = join(",", @{$query->[RULES]});
+	my $rules = "(unknown)";
+    if ($query->[RULES]) {
+		$rules = join(",", @{$query->[RULES]});
+	}  
     my $delay = time - $self->{rbl_launch};
     dbg("RBL: timeout for $rules after $delay seconds", "rbl", 0);
     undef $query->[BGSOCK];