diff --git a/tclIndexObj.c b/tclIndexObj.c
index 30c33f1..07792c5 100644
--- a/tclIndexObj.c
+++ b/tclIndexObj.c
@@ -1207,7 +1207,7 @@ Tcl_ParseArgsObjv(
 	infoPtr = matchPtr;
 	switch (infoPtr->type) {
 	case TCL_ARGV_CONSTANT:
-	    *((int *) infoPtr->dstPtr) = PTR2INT(infoPtr->srcPtr);
+	    *((int *) infoPtr->dstPtr) = *((int *) infoPtr->srcPtr);
 	    break;
 	case TCL_ARGV_INT:
 	    if (objc == 0) {
