Awful quot typo

diff --git a/swg b/swg
index 9e6dab29dfda39c90d096082e2fb50e5ac512f8f..fdf6956c6f95495c1626ed5bc71b574bde820e08 100755 (executable)
--- a/swg
+++ b/swg
@@ -277,7 +277,7 @@ END_HTML
                 my $url = $1;
                 my $t = ($2 eq q{}) ? $1 : $2;
                 $t = htmlescape $t;
-                $t =~ s/"/\&guot;/g;
+                $t =~ s/"/\"/g;
                 $_ = "$head=&gt; <a href=\"$url\">$t</a>";
             } elsif ($cmd =~ /^img (\S+)\s?(.*) => (\S+)$/) {
                 if ($2 eq q{}) {
@@ -287,7 +287,7 @@ END_HTML
                     my $urlA = $3;
                     my $t = $2;
                     $t = htmlescape $t;
-                    $t =~ s/"/\&guot;/g;
+                    $t =~ s/"/\&quot;/g;
                     $_ = "$head<a href=\"$urlA\"><img src=\"$urlImg\" alt=\"$t\" /></a>";
                 }
             } elsif ($cmd =~ /^img (\S+)\s?(.*)$/) {
@@ -297,7 +297,7 @@ END_HTML
                     my $url = $1;
                     my $t = $2;
                     $t = htmlescape $t;
-                    $t =~ s/"/\&guot;/g;
+                    $t =~ s/"/\&quot;/g;
                     $_ = "$head<img src=\"$url\" alt=\"$t\" />";
                 }
             } elsif ($cmd eq q{do-backs}) {