and again

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index f8f8ecf77b4b0d7a3af753122b2d5adc7c245cc8..2e22bc91132f1355e39f9311f4744f0605bd9679 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -53,7 +53,7 @@ $baddxfn = "$main::data/baddx.pl";
 (
  [ qw(c c m p bc c) ],                 # pc10
  [ qw(f m d t m c c h) ],              # pc11
- [ qw(c bc m p bc p h) ],              # pc12
+ [ qw(c bc m bp c p h) ],              # pc12
  [ qw(c h) ],                                  # 
  [ qw(c h) ],                                  # 
  [ qw(c m h) ],                                        #