1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/tcl/generic/tclStringObj.c b/contrib/tcl/generic/tclStringObj.c
index e421833..beed142 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.29 97/06/13 18:17:19
+ * SCCS: @(#) tclStringObj.c 1.30 97/07/24 18:53:30
  */
 
 #include "tclInt.h"
@@ -98,7 +98,7 @@ Tcl_NewStringObj(bytes, length)
     register Tcl_Obj *objPtr;
 
     if (length < 0) {
-	length = strlen(bytes);
+	length = bytes ? strlen(bytes) : 0 ;
     }
     TclNewObj(objPtr);
     TclInitStringRep(objPtr, bytes, length);