diff --git a/scripts/process-changes.pl b/scripts/process-changes.pl
index a9fc77bc..d9c78690 100755
--- a/scripts/process-changes.pl
+++ b/scripts/process-changes.pl
@@ -105,7 +105,7 @@ ($)
   my($name)=@_;
   
   my $escaped_name = $name; $escaped_name =~ s/_/-/g;
-  if($escaped_name =~ /^[-A-Z]+$/) {
+  if($escaped_name =~ /^[-_A-Z]+$/) {
     $escaped_name .= ":CAPS";
   }
   return qq{<link linkend="$escaped_name"><type>$name</type></link>};
@@ -115,7 +115,7 @@ ($)
   my($name)=@_;
   
   my $escaped_name = $name; $escaped_name =~ s/_/-/g;
-  if($escaped_name =~ /^[-A-Z]+$/) {
+  if($escaped_name =~ /^[-_A-Z]+$/) {
     $escaped_name .= ":CAPS";
   }
   return qq{<link linkend="$escaped_name"><literal>$name</literal></link>};