Index: ps/trunk/source/tools/entity/checkrefs.pl
===================================================================
--- ps/trunk/source/tools/entity/checkrefs.pl
+++ ps/trunk/source/tools/entity/checkrefs.pl
@@ -435,8 +435,8 @@
     {
         push @files, $f;
 
-        # GUI page definitions are assumed to be named page_[something].xml and alone in that.
-        if ($f =~ /\/page_[^.\/]+\.xml$/)
+        # GUI page definitions are assumed to be named page[_something].xml and alone in that.
+        if ($f =~ /\/page(_[^.\/]+)?\.xml$/)
         {
             push @roots, $f;
             my $xml = XMLin(vfs_to_physical($f), ForceArray => [qw(include)], KeyAttr => []) or die "Failed to parse '$f': $!";
Index: ps/trunk/source/tools/xmlvalidator/validate.pl
===================================================================
--- ps/trunk/source/tools/xmlvalidator/validate.pl
+++ ps/trunk/source/tools/xmlvalidator/validate.pl
@@ -98,8 +98,8 @@
     my (@guipages, @guixmls);
     for my $f (@files)
     {
-        # GUI page definitions are assumed to be named page_[something].xml and alone in that.
-        if ($f =~ /\/page_[^.\/]+\.xml$/)
+        # GUI page definitions are assumed to be named page[_something].xml and alone in that.
+        if ($f =~ /\/page(_[^.\/]+)?\.xml$/)
         {
             push @guipages, $f;
         }