3bd7a42
diff -up sqlite-2.8.17/test/tclsqlite.test.orig sqlite-2.8.17/test/tclsqlite.test
3bd7a42
--- sqlite-2.8.17/test/tclsqlite.test.orig	2005-04-23 17:43:22.000000000 -0500
3bd7a42
+++ sqlite-2.8.17/test/tclsqlite.test	2009-03-20 10:36:39.235100000 -0500
3bd7a42
@@ -61,16 +61,15 @@ do_test tcl-1.5 {
3bd7a42
   } msg]
3bd7a42
   lappend v $msg
3bd7a42
 } {0 {}}
3bd7a42
+catch {expr x*} msg
3bd7a42
 do_test tcl-1.6 {
3bd7a42
   set v [catch {
3bd7a42
     db eval {SELECT * FROM t1} data {
3bd7a42
       expr x*
3bd7a42
     }
3bd7a42
   } msg]
3bd7a42
-  regsub {:.*$} $msg {} msg
3bd7a42
   lappend v $msg
3bd7a42
-} {1 {syntax error in expression "x*"}}
3bd7a42
-
3bd7a42
+} [list 1 $msg]
3bd7a42
 if {[sqlite -encoding]=="UTF-8" && [sqlite -tcl-uses-utf]} {
3bd7a42
   catch {unset ::result}
3bd7a42
   do_test tcl-2.1 {