Index: generic/xotcl.c
===================================================================
diff -u -raf7d1feab1340a2262c8d8983cb2b26660069e45 -r55b4fe5375115626075f94c8eadaf0c161560da5
--- generic/xotcl.c	(.../xotcl.c)	(revision af7d1feab1340a2262c8d8983cb2b26660069e45)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 55b4fe5375115626075f94c8eadaf0c161560da5)
@@ -8719,7 +8719,7 @@
   }
   flag = ObjStr(obj);
   /*fprintf(stderr, "we have a scalar '%s'\n", flag);*/
-  if ((*flag == '-' || *flag == '.') && isalpha(*((flag)+1))) {
+  if ((*flag == '-' /*|| *flag == '.'*/) && isalpha(*((flag)+1))) {
     if (firstArg) {
       /* if the argument contains a space, try to split */
       char *p= flag+1;
@@ -11192,7 +11192,7 @@
   Tcl_Obj **argv, **nextArgv, *resultObj;
   int i, start = 1, argc, nextArgc, normalArgs, result = TCL_OK, isdasharg = NO_DASH;
   char *methodName, *nextMethodName;
-
+#if 0
   /* if we got a single argument, try to split it (unless it starts
    * with our magic chars) to distinguish between
    *    Object create foo {.method foo {} {...}}
@@ -11218,7 +11218,7 @@
       }
     }
   }
-
+#endif
   /* find arguments without leading dash */
   for (i=start; i < objc; i++) {
     if ((isdasharg = isDashArg(interp, objv[i], 1, &methodName, &argc, &argv))) {