1 files changed, 1 insertions, 1 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index 598c9355f..76c9ef75c 100644
--- a/src/tclsqlite.c
+++ b/src/tclsqlite.c
@@ -1964,7 +1964,7 @@ static void DbHookCmd(
   }
   if( pArg ){
     assert( !(*ppHook) );
-    if( Tcl_GetCharLength(pArg)>0 ){
+    if( Tcl_GetString(pArg)[0] ){
       *ppHook = pArg;
       Tcl_IncrRefCount(*ppHook);
     }