--- trunk/lib/WebPAC/Normalize/Set.pm	2006/05/14 11:06:42	485
+++ trunk/lib/WebPAC/Normalize/Set.pm	2006/05/14 11:06:52	486
@@ -276,7 +276,7 @@
 
 sub join_with {
 	my $d = shift;
-	return join($d, @_);
+	return join($d, grep { defined($_) && $_ ne '' } @_);
 }
 
 # END