Many bugfixes.

[chiark-tcl.git] / base / tcmdifgen

diff --git a/base/tcmdifgen b/base/tcmdifgen
index dce3153f3ac0e3247d2ff6822134ac29a1276001..14567703c2129f95b05e3f65f95f4a02cec3c4e3 100755 (executable)
--- a/base/tcmdifgen
+++ b/base/tcmdifgen
@@ -248,7 +248,7 @@ foreach $c_table (sort keys %tables) {
            $pa_vars .= "  const char *e;\n";
            $pa_fini .= "\n";
            $pa_fini .= "e_err:\n";
-           $pa_fini .= "  setstringresult(ip,e);";
+           $pa_fini .= "  setstringresult(ip,e);\n";
            $pa_fini .= "  rc= TCL_ERROR; goto rc_err;\n";
        }
        $pa_vars .= "\n";