diff --git a/bibcop.pl b/bibcop.pl
index 517f3a8..4bb4ffe 100755
--- a/bibcop.pl
+++ b/bibcop.pl
@@ -675,6 +675,7 @@ sub fix_journal {
 sub fix_publisher {
   my ($value) = @_;
   $value = fix_capitalization($value);
+  $value =~ s/^ACM($|[^A-Z0-9a-z].*$)/ACM/g;
   return $value;
 }
 
diff --git a/perl-tests/fixing.pl b/perl-tests/fixing.pl
index 5193113..99022f7 100755
--- a/perl-tests/fixing.pl
+++ b/perl-tests/fixing.pl
@@ -44,6 +44,9 @@ package bibcop;
 fixes('booktitle', 'Symposium on Computers', 'Proceedings of the Symposium on Computers');
 fixes('booktitle', 'Proceedings of the 2014 7th Conference', 'Proceedings of the 7th Conference');
 
+fixes('publisher', 'ACM New York, NY, USA', 'ACM');
+fixes('publisher', 'ACME', 'ACME');
+
 fixes('pages', '13', '13');
 fixes('pages', '13-', '13');
 fixes('pages', '13--', '13');