--- a/wiki.pl
+++ b/wiki.pl
@@ -2555,7 +2555,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'};
@@ -2850,7 +2850,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);
 }
@@ -2858,7 +2858,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);
 }
