Index: generic/xotcl.c
===================================================================
diff -u -r986b0a08b5168612ef730a8b575ddbffee9f0b14 -r897518a3e8bf901a40ef84b016597bf8ec476e1b
--- generic/xotcl.c	(.../xotcl.c)	(revision 986b0a08b5168612ef730a8b575ddbffee9f0b14)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 897518a3e8bf901a40ef84b016597bf8ec476e1b)
@@ -10458,7 +10458,7 @@
     }
   }
   flag = ObjStr(obj);
-  /*fprintf(stderr, "we have a scalar '%s'\n", flag);*/
+  /*fprintf(stderr, "we have a scalar '%s' firstArg %d\n", flag, firstArg);*/
 
   if ((*flag == '-') && isalpha(*((flag)+1))) {
     if (firstArg) {
@@ -10531,10 +10531,10 @@
   for( ; i < objc;  argc=nextArgc, argv=nextArgv, methodName=nextMethodName) {
     Tcl_ResetResult(interp);
     switch (isdasharg) {
-    case SKALAR_DASH:    /* argument is a skalar with a leading dash */
+    case SKALAR_DASH:    /* argument is a skalar with a leading dash, eager search for dashed arg */
       { int j;
         for (j = i+1; j < objc; j++, argc++) {
-          if ((isdasharg = isDashArg(interp, objv[j], j==i+1, &nextMethodName, &nextArgc, &nextArgv)))
+          if ((isdasharg = isDashArg(interp, objv[j], 1, &nextMethodName, &nextArgc, &nextArgv)))
             break;
         }
         result = callConfigureMethod(interp, obj, methodName, argc+1, objv+i+1);