--- a/wiki.pl
+++ b/wiki.pl
@@ -2611,7 +2611,7 @@ sub ExpireKeepFile {
     return;
   }
   return  if (!$anyExpire);  # No sections expired
-  open (OUT, ">$fname") or die (Ts('cant write %s', $fname) . ": $!");
+  open (OUT, ">$fname") or die (Ts('can\'t write %s', $fname) . ": $!");
   foreach (@kplist) {
     %tempSection = split(/$FS2/, $_, -1);
     $sectName = $tempSection{'name'};
@@ -2906,7 +2906,7 @@ sub ReadFileOrDie {
 sub WriteStringToFile {
   my ($file, $string) = @_;
 
-  open (OUT, ">$file") or die(Ts('cant write %s', $file) . ": $!");
+  open (OUT, ">$file") or die(Ts('can\'t write %s', $file) . ": $!");
   print OUT  $string;
   close(OUT);
 }
@@ -2914,7 +2914,7 @@ sub WriteStringToFile {
 sub AppendStringToFile {
   my ($file, $string) = @_;
 
-  open (OUT, ">>$file") or die(Ts('cant write %s', $file) . ": $!");
+  open (OUT, ">>$file") or die(Ts('can\'t write %s', $file) . ": $!");
   print OUT  $string;
   close(OUT);
 }
