vendor/tcl

1 files changed, 3 insertions, 3 deletions

diff --git a/contrib/tcl/generic/tclStringObj.c b/contrib/tcl/generic/tclStringObj.c
index beed142d2e83f..6b1f2afd7a2fd 100644
--- a/contrib/tcl/generic/tclStringObj.c
+++ b/contrib/tcl/generic/tclStringObj.c
@@ -14,7 +14,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * SCCS: @(#) tclStringObj.c 1.30 97/07/24 18:53:30
+ * SCCS: @(#) tclStringObj.c 1.31 97/10/30 13:56:35
  */
 
 #include "tclInt.h"
@@ -98,7 +98,7 @@ Tcl_NewStringObj(bytes, length)
     register Tcl_Obj *objPtr;
 
     if (length < 0) {
-	length = bytes ? strlen(bytes) : 0 ;
+	length = (bytes? strlen(bytes) : 0);
     }
     TclNewObj(objPtr);
     TclInitStringRep(objPtr, bytes, length);
@@ -154,7 +154,7 @@ Tcl_DbNewStringObj(bytes, length, file, line)
     register Tcl_Obj *objPtr;
 
     if (length < 0) {
-	length = strlen(bytes);
+	length = (bytes? strlen(bytes) : 0);
     }
     TclDbNewObj(objPtr, file, line);
     TclInitStringRep(objPtr, bytes, length);