Index: toltcl/generic/tolaccess.cpp
===================================================================
--- toltcl/generic/tolaccess.cpp	(revision eb212772f7435bd586fe845b3ce9cabfbf481d1e)
+++ toltcl/generic/tolaccess.cpp	(revision aedc343691383d64a782ce7f2813a54a2a1f3e0f)
@@ -2343,5 +2343,5 @@
  * of a global container.
  */
-int Tol_SetVariablesObj (Tcl_Interp *interp, Tcl_Obj *gra_name,
+int Tol_SetVariablesObj (Tcl_Interp *interp, Tcl_Obj *obj_reference,
                          Tcl_Obj *obj_result)
 {
@@ -2352,16 +2352,18 @@
   int tcl_code;
   
-  if (Tcl_ListObjLength(interp,gra_name,&length)!=TCL_OK) {
-    Tcl_AppendObjToObj(obj_result,Tcl_GetObjResult(interp));
-    return TCL_ERROR;
-  }
-  if (length!=1) {
+  if ( Tcl_ListObjLength( interp, obj_reference, &length ) != TCL_OK ) {
+    Tcl_AppendObjToObj( obj_result, Tcl_GetObjResult( interp ) );
+    return TCL_ERROR;
+  }
+  if ( length > 1 ) {
+    /*
     if (length == 2) {
-      tcl_code = Tcl_ListObjGetElements(interp,gra_name,&length,&items);
+      tcl_code = Tcl_ListObjGetElements(interp,obj_reference,&length,&items);
       assert(tcl_code == TCL_OK);
       if (strcmp(Tcl_GetString(items[0]),"Console"))
         return Tol_SetVariableInfoObj(items[0], items[1], obj_result);
     }
-    if (!(syn=Tol_ResolveObject(interp, gra_name, obj_result))) {
+    */
+    if ( !( syn = Tol_ResolveObject( interp, obj_reference, obj_result ) ) ) {
       return TCL_ERROR;
     }
@@ -2374,8 +2376,8 @@
     return TCL_OK;
   }
-  BGrammar *gra = BGrammar::FindByName(Tcl_GetString(gra_name));
+  BGrammar *gra = BGrammar::FindByName(Tcl_GetString( obj_reference ) );
   if (!gra) {
     Tcl_AppendStringsToObj( obj_result, "'",
-                            Tcl_GetString(gra_name),
+                            Tcl_GetString( obj_reference ),
                             "' isn't a grammar", NULL );
     return TCL_ERROR;