--- trunk/lib/WebPAC/Validate.pm	2006/05/16 15:23:12	516
+++ trunk/lib/WebPAC/Validate.pm	2006/09/06 19:52:36	640
@@ -146,7 +146,7 @@
 					foreach my $sf (keys %{ $v }) {
 						# permited subfield?
 						if (! first { $_ eq $sf } @{ $r->{$f} }) {
-							push @errors, "$f has unknown subfield: $sf";
+							push @errors, "$f has unknown subfield: $sf" if ($sf ne 'subfields');
 						}
 					}
 				}