--- /usr/bin/sgf2tex	2004-02-01 16:41:58.000000000 +1300
+++ sgf2tex	2004-02-23 21:17:20.000000000 +1300
@@ -786,7 +786,8 @@
         $comm =~ s/\\/\//g;             #  \\ -> / since cmr10 has no backslash
         $comm =~ tr/{<>}_/[[]]-/;       #  cmr10 has no {<>}_ so substitute [[]]-
     }
-    $comm =~ s/([&~^\$%#])/\\$1/g;      #  escape &~^$%#
+    $comm =~ s/([&\$%#])/\\$1/g;        #  escape &\$%#
+    $comm =~ s/([~^])/\\$1\{\}/g;       #  escape ~^
 
     if ($sgf{Simple}) {
         $comm .= "\n\n";                # just tack two newlines to the end