fix test-cases winDde 5.1 and 5.3

2 files changed, 3 insertions, 3 deletions

diff --git a/tests/winDde.test b/tests/winDde.test
index bd5ef73..d4a3a79 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -216,13 +216,13 @@ test winDde-4.4 {DDE eval remotely} {stdio win dde} {
 
 test winDde-5.1 {check for bad arguments} -constraints {win dde} -body {
     dde execute "" "" "" ""
-} -returnCodes error -result {wrong # args: should be "dde execute ?-async? serviceName topicName value"}
+} -returnCodes error -result {ambiguous option "": must be -async or -binary}
 test winDde-5.2 {check for bad arguments} -constraints {win dde} -body {
     dde execute "" "" ""
 } -returnCodes error -result {cannot execute null data}
 test winDde-5.3 {check for bad arguments} -constraints {win dde} -body {
     dde execute -foo "" "" ""
-} -returnCodes error -result {wrong # args: should be "dde execute ?-async? serviceName topicName value"}
+} -returnCodes error -result {bad option "-foo": must be -async or -binary}
 test winDde-5.4 {DDE eval bad arguments} -constraints {win dde} -body {
     dde eval "" "foo"
 } -returnCodes error -result {invalid service name ""}
diff --git a/win/tclWinDde.c b/win/tclWinDde.c
index e917570..83c2aa3 100644
--- a/win/tclWinDde.c
+++ b/win/tclWinDde.c
@@ -1253,7 +1253,7 @@ DdeObjCmd(
 	} else if (objc >= 6 && objc <= 7) {
 	    firstArg = objc - 3;
 	    for (i = 2; i < firstArg; i++) {
-		if (Tcl_GetIndexFromObj(NULL, objv[2], ddeExecOptions,
+		if (Tcl_GetIndexFromObj(interp, objv[2], ddeExecOptions,
 			"option", 0, &argIndex) != TCL_OK) {
 		    return TCL_ERROR;
 		}