diff -cr oommf12a3/app/oxs/base/util.cc oommf/app/oxs/base/util.cc
*** oommf12a3/app/oxs/base/util.cc	Fri Apr  5 19:29:23 2002
--- oommf/app/oxs/base/util.cc	Sat Mar 22 13:38:11 2003
***************
*** 136,142 ****
    Tcl_Obj* obj = arr[index];
    if (Tcl_IsShared(obj)) {
      Tcl_Obj* tmp = obj;
!     obj = Tcl_DuplicateObj(obj); // Create copy to write on
      Tcl_IncrRefCount(obj);
      Tcl_DecrRefCount(tmp);
    }
--- 136,142 ----
    Tcl_Obj* obj = arr[index];
    if (Tcl_IsShared(obj)) {
      Tcl_Obj* tmp = obj;
!     arr[index] = obj = Tcl_DuplicateObj(obj); // Create copy to write on
      Tcl_IncrRefCount(obj);
      Tcl_DecrRefCount(tmp);
    }
***************
*** 167,173 ****
    Tcl_Obj* obj = arr[index];
    if (Tcl_IsShared(obj)) {
      Tcl_Obj* tmp = obj;
!     obj = Tcl_DuplicateObj(obj); // Create copy to write on
      Tcl_IncrRefCount(obj);
      Tcl_DecrRefCount(tmp);
    }
--- 167,173 ----
    Tcl_Obj* obj = arr[index];
    if (Tcl_IsShared(obj)) {
      Tcl_Obj* tmp = obj;
!     arr[index] = obj = Tcl_DuplicateObj(obj); // Create copy to write on
      Tcl_IncrRefCount(obj);
      Tcl_DecrRefCount(tmp);
    }
***************
*** 190,196 ****
    Tcl_Obj* obj = arr[index];
    if (Tcl_IsShared(obj)) {
      Tcl_Obj* tmp = obj;
!     obj = Tcl_DuplicateObj(obj); // Create copy to write on
      Tcl_IncrRefCount(obj);
      Tcl_DecrRefCount(tmp);
    }
--- 190,196 ----
    Tcl_Obj* obj = arr[index];
    if (Tcl_IsShared(obj)) {
      Tcl_Obj* tmp = obj;
!     arr[index] = obj = Tcl_DuplicateObj(obj); // Create copy to write on
      Tcl_IncrRefCount(obj);
      Tcl_DecrRefCount(tmp);
    }
***************
*** 213,219 ****
    Tcl_Obj* obj = arr[index];
    if (Tcl_IsShared(obj)) {
      Tcl_Obj* tmp = obj;
!     obj = Tcl_DuplicateObj(obj); // Create copy to write on
      Tcl_IncrRefCount(obj);
      Tcl_DecrRefCount(tmp);
    }
--- 213,219 ----
    Tcl_Obj* obj = arr[index];
    if (Tcl_IsShared(obj)) {
      Tcl_Obj* tmp = obj;
!     arr[index] = obj = Tcl_DuplicateObj(obj); // Create copy to write on
      Tcl_IncrRefCount(obj);
      Tcl_DecrRefCount(tmp);
    }