>Sorry for the trauma you went through...I'll check out your change and get back to you...and yes you can have a t-shirt!
>
>Regards,

That'll be a size large, and don't forget the change to the cFreeCursor as well.

ENDIF

  ************************************************************
  *   Method:  CTableCursor.Initialize() - CDATAENV.VCX
  *
  *)  Description:
  *)    Creates a cursor from a free table
  *
  *   Returns:  LOGICAL 
  *     .T. - if the Table Cursor could be created
  *     .F. - if it could not.
  *
  *   Change Log:
  ************************************************************
    *-----------------------------------------------------------
    *-- If the Alias property is not explicitly initialized, 
    *-- any relation objects added to the data Environment will
    *-- not be set up. 
    *-----------------------------------------------------------
    IF "[" $ This.CursorSource
    This.Alias = JUSTSTEM(SUBSTR(This.CursorSource, 2, RAT("]", This.CursorSource)-2))
    ELSE
        This.Alias = JUSTSTEM(This.CursorSource)
    ENDIF
    
    RETURN CCursor::Initialize()