[Xotcl] xotcl 1.3.7 problem

[Gustaf Neumann]

Dear Koen,

thanks for the report, this was a fresh error introduced by fixing 
another bug.
Below is the fix. seems as a good idea to come out with 1.3.8 soon.

best regards
-gustaf neumann
==========================================================

--- generic/xotcl.c-1.3.7       2005-09-27 00:49:25.000000000 +0200
+++ generic/xotcl.c     2005-09-29 19:23:15.000000000 +0200
@@ -7976,7 +7976,6 @@
   XOTclObject  *obj   = (XOTclObject*)cd;
   Tcl_Obj      **ov;
   int          i, oc, result = TCL_OK;
-  char         *varname = 0, *alias = 0;
   callFrameContext ctx = {0};
 
   if (!obj) return XOTclObjErrType(in, objv[0], "Object");
@@ -7993,6 +7992,7 @@
  
   for (i=1; i<objc; i++) {
     if ((result = Tcl_ListObjGetElements(in, objv[i], &oc, &ov)) == 
TCL_OK) {
+      char *varname = 0, *alias = 0;
       switch (oc) {
       case 0: {varname = ObjStr(objv[i]); break;}
       case 1: {varname = ObjStr(ov[0]);   break;}