aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordanielk1977 <danielk1977@noemail.net>2007-10-23 08:17:48 +0000
committerdanielk1977 <danielk1977@noemail.net>2007-10-23 08:17:48 +0000
commit191fadcf237e14721740e9ebf532aceff3497a3c (patch)
treee4ed97709156162568d01fc19ac1ed3440ccb3ef /src
parent1c1764ae6641a8b9ae7343944b11587f4238133d (diff)
downloadsqlite-191fadcf237e14721740e9ebf532aceff3497a3c.tar.gz
sqlite-191fadcf237e14721740e9ebf532aceff3497a3c.zip
Fix an error message in the tcl interface. (CVS 4503)
FossilOrigin-Name: 2449e08069ef830f119203c4a3737d6756e73c63
Diffstat (limited to 'src')
-rw-r--r--src/tclsqlite.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index e81846e6b..2c32ca5ed 100644
--- a/src/tclsqlite.c
+++ b/src/tclsqlite.c
@@ -12,7 +12,7 @@
** A TCL Interface to SQLite. Append this file to sqlite3.c and
** compile the whole thing to build a TCL-enabled version of SQLite.
**
-** $Id: tclsqlite.c,v 1.203 2007/09/14 16:20:01 danielk1977 Exp $
+** $Id: tclsqlite.c,v 1.204 2007/10/23 08:17:48 danielk1977 Exp $
*/
#include "tcl.h"
#include <errno.h>
@@ -1073,7 +1073,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){
}
}else{
Tcl_AppendResult( interp, "bad option \"",
- Tcl_GetStringFromObj(objv[0],0), "\": must be flush or size", 0);
+ Tcl_GetStringFromObj(objv[2],0), "\": must be flush or size", 0);
return TCL_ERROR;
}
break;