From 722f0647558e5ddf3d682f7e3ea3fa6152a5eef1 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Fri, 27 Dec 2024 21:19:15 +0000
Subject: amend to fix [98006f00ac471be5]: typo

---
 generic/tclBasic.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 98cdb00..659002d 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -8905,7 +8905,7 @@ ExprIsUnorderedFunc(
     if (type == TCL_NUMBER_NAN) {
 	result |= 1;
     } else {
-	if (Tcl_GetDoubleFromObj(interp, objv[1], &d) != TCL_OK) {
+	if (Tcl_GetDoubleFromObj(interp, objv[2], &d) != TCL_OK) {
 	    return TCL_ERROR;
 	}
 	result |= (ClassifyDouble(d) == FP_NAN);
-- 
cgit v0.12