fixed tcl bindings

git-svn-id: file:///raid/svn-main/nishi-libw3/trunk@189 d27a3e52-49c5-7645-884c-6793ebffc270

diff --git a/Library/Tcl.c b/Library/Tcl.c
index 7ebc6a1a610afe4420ce3f9471ed47c3ae2fbeb3..12c6002264313f3262b2db2e07f669eb73322515 100644 (file)
--- a/Library/Tcl.c
+++ b/Library/Tcl.c
@@ -395,7 +395,7 @@ int Tcl_W3Cmd(ClientData dummy, Tcl_Interp* interp, int objc, Tcl_Obj* CONST obj
                        Tcl_SetObjResult(interp, Tcl_NewStringObj(errmsg, strlen(errmsg)));
                        return TCL_ERROR;
                }
-               W3_Do_Debug(atoi(Tcl_GetString(argv[2]));
+               W3_Do_Debug(atoi(Tcl_GetString(objv[2])));
                Tcl_SetObjResult(interp, Tcl_NewIntObj(0));
                return TCL_OK;
        } else {

diff --git a/W3Version.h.p b/W3Version.h.p
index 5bfe6ecf4cfecd337456e90de36fdbf8abcce548..78196b65fc8d6eb3ed501a112fbcd1b082985f53 100644 (file)
--- a/W3Version.h.p
+++ b/W3Version.h.p
@@ -6,7 +6,7 @@
 extern "C" {
 #endif
 
-#define LIBW3_VERSION "2.4A" \
+#define LIBW3_VERSION "2.4B" \
 SUFFIX
 
 #ifdef __cplusplus