*** /space/home/jwu/tcl/blend.orig/tclBlend1.2.6/src/tcljava/tcl/lang/TclObject.java	Tue Aug 22 10:35:04 2000
--- TclObject.java	Tue Aug 22 10:34:47 2000
***************
*** 196,202 ****
  	if (internalRep == null) {
  	    throw new TclRuntimeError("Attempting to preserve object " +
  		    "after it was deallocated");
! 	} 
  	refCount++;
      }
  
--- 196,203 ----
  	if (internalRep == null) {
  	    throw new TclRuntimeError("Attempting to preserve object " +
  		    "after it was deallocated");
! 	}
! 	internalRep.incrRefCount();
  	refCount++;
      }
  
***************
*** 209,215 ****
       */
      public final void release() {
  	refCount--;
! 
  	if (refCount <= 0) {
  	    internalRep.dispose();
  
--- 210,216 ----
       */
      public final void release() {
  	refCount--;
! 	internalRep.decrRefCount();
  	if (refCount <= 0) {
  	    internalRep.dispose();