Fix special-case in SetDuplicatePureObj(): Since typePtr is always &tclListType (ALL current calls to TclDuplicatePureObj() have &tclListType as last argument), this constructions can never work.

(I'm not sure this code is usefull at all, but that's for another day)

Author: jan.nijtmans

generic/tclObj.c

@@ -1675,10 +1675,10 @@ int SetDuplicatePureObj(
 
     if (bytes && (dupPtr->typePtr == NULL
 	|| dupPtr->typePtr->updateStringProc == NULL
-	|| typePtr == &tclUniCharStringType
-	|| typePtr == &tclDoubleType
-	|| typePtr == &tclIntType
-	|| typePtr == &tclIndexType
+	|| objPtr->typePtr == &tclUniCharStringType
+	|| objPtr->typePtr == &tclDoubleType
+	|| objPtr->typePtr == &tclIntType
+	|| objPtr->typePtr == &tclIndexType
 	)
     ) {
 	if (!TclAttemptInitStringRep(dupPtr, bytes, objPtr->length)) {