Index: generic/xotcl.c
===================================================================
diff -u -r368155fc12211849992ff1ef8b51498007f97bec -rc0b169840f5afb465740cd0a5ed4e3961c32ba88
--- generic/xotcl.c	(.../xotcl.c)	(revision 368155fc12211849992ff1ef8b51498007f97bec)
+++ generic/xotcl.c	(.../xotcl.c)	(revision c0b169840f5afb465740cd0a5ed4e3961c32ba88)
@@ -9217,17 +9217,22 @@
     if (*pPtr->name == '-') {
       int p, found;
       char *objStr;
-
-      /* Handle non-positional (named) parameters, starting with a
-       * "-"; arguments can be given in an arbitrary order
+      /* 
+       * We expect now a non-positional (named) parameter, starting
+       * with a "-"; such arguments can be given in an arbitrary order
        */
       for (p = o; p<objc; p++) {
         objStr = ObjStr(objv[p]);
+	found = 0;
+
         /*fprintf(stderr, "....checking objv[%d]=%s\n", p, objStr);*/
-        if (objStr[0] == '-') {
+        if (objStr[0] != '-') {
+	  /* there is no positional arg in the given argument vector */
+	  break; 
+	} else {
           XOTclParam CONST *nppPtr;
+	  /* We have an argument starting with a "-"; is it really one of the possible flags? */
 
-          found = 0;
           for (nppPtr = pPtr; nppPtr->name && *nppPtr->name == '-'; nppPtr ++) {
             if (strcmp(objStr,nppPtr->name) == 0) {
               /*fprintf(stderr, "...     flag '%s' o=%d p=%d, objc=%d nrArgs %d\n",objStr,o,p,objc,nppPtr->nrArgs);*/