1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclGet.c b/generic/tclGet.c
index 12e0e79..4811c42 100644
--- a/generic/tclGet.c
+++ b/generic/tclGet.c
@@ -142,7 +142,7 @@ Tcl_GetBoolean(
 	Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
     }
     if (code == TCL_OK) {
-	TclGetBooleanFromObj(NULL, &obj, boolPtr);
+	*boolPtr = obj.internalRep.wideValue != 0;
     }
     return code;
 }