diff --git a/bibcop.pl b/bibcop.pl
index 3c294b8..5da5e3e 100755
--- a/bibcop.pl
+++ b/bibcop.pl
@@ -750,6 +750,7 @@ sub fix_unicode {
     'ı' => '{\i}',
     'ø' => '\o{}',
     '–' => '--', '—' => '---',
+    '’' => '\''
   );
   keys %literals;
   while(my($k, $v) = each %literals) {
diff --git a/perl-tests/fixing.pl b/perl-tests/fixing.pl
index aaf1b73..ed76be1 100755
--- a/perl-tests/fixing.pl
+++ b/perl-tests/fixing.pl
@@ -80,6 +80,7 @@ package bibcop;
 fixes('month', 'something', 'something');
 
 fixes('unicode', 'Fernández, Luis and Peña, Rosalía', 'Fern\\\'{a}ndez, Luis and Pe\~{n}a, Rosal\\\'{i}a');
+fixes('unicode', 'Programmers’ Life', 'Programmers\' Life');
 
 sub fixes {
   my ($tag, $before, $expected) = @_;