Allow incr on unset variable

From Tcl 8.5, implicitly set variable to 0

1 files changed, 2 insertions, 2 deletions

diff --git a/test.tcl b/test.tcl
index c4d287f..b869f47 100644
--- a/test.tcl
+++ b/test.tcl
@@ -1180,7 +1180,7 @@ test incr-1.13 {TclCompileIncrCmd: simple but new (unknown) local name} {
     }
     catch {p} msg
     set msg
-} {can't read "bar": no such variable}
+} {1}
 test incr-1.14 {TclCompileIncrCmd: simple local name, >255 locals} {
     proc 260locals {} {
         # create 260 locals
@@ -1399,7 +1399,7 @@ test incr-2.13 {incr command (not compiled): simple but new (unknown) local name
     }
     catch {p} msg
     set msg
-} {can't read "bar": no such variable}
+} {1}
 test incr-2.14 {incr command (not compiled): simple local name, >255 locals} {
    proc 260locals {} {
         set z incr