Error in Admin Tab 'Show Accounts' 2009.08

When I click on Admin->Accounts, I recieve the following error:

ATTENTION! This page generated some errors.
Please resolve the problem based on the
error message below. If you are unable to resolve
the problem, please ask us for help: support@rtda.com

Be sure to copy and paste the error stacks, if any, to the email you send to us. Thanks.

can't read 'DATA(0a010a40.0,users)': no such element in arraycan't read "DATA(0a010a40.0,users)": no such element in array
    while executing
"if { $DATA($account,users) == {} } {
				    COLOR red "This account has no checkouts"
				} else {
				    set sortedList [lsort $DATA($account,users..."
    ("uplevel" body line 2)
    invoked from within
"uplevel $script"
    (procedure "SMALL" line 1)
    invoked from within
"SMALL {
				if { $DATA($account,users) == {} } {
				    COLOR red "This account has no checkouts"
				} else {
				    set sortedList [lsort $DATA($a..."
    ("uplevel" body line 2)
    invoked from within
"uplevel { 
			    SMALL {
				if { $DATA($account,users) == {} } {
				    COLOR red "This account has no checkouts"
				} else {
				    set sortedLi..."
    ("eval" body line 1)
    invoked from within
"eval uplevel [lrange $args end end]"
    (procedure "TD" line 8)
    invoked from within
"TD VALIGN="TOP" { 
			    SMALL {
				if { $DATA($account,users) == {} } {
				    COLOR red "This account has no checkouts"
				} else {
				    set ..."
    ("uplevel" body line 4)
    invoked from within
"uplevel {
			TH VALIGN="TOP" ALIGN="LEFT"  { OUT $account }
			# TD VALIGN="TOP" ALIGN="RIGHT" { OUT $ACCOUNTS(id,$account) }
			TD VALIGN="TOP" { 
		..."
    ("eval" body line 1)
    invoked from within
"eval uplevel [lrange $args end end]"
    (procedure "TR" line 8)
    invoked from within
"TR {
			TH VALIGN="TOP" ALIGN="LEFT"  { OUT $account }
			# TD VALIGN="TOP" ALIGN="RIGHT" { OUT $ACCOUNTS(id,$account) }
			TD VALIGN="TOP" { 
			    ..."
    ("foreach" body line 2)
    invoked from within
"foreach account [lsort $DATA(accountList)] {
		    TR {
			TH VALIGN="TOP" ALIGN="LEFT"  { OUT $account }
			# TD VALIGN="TOP" ALIGN="RIGHT" { OUT $AC..."
    ("uplevel" body line 18)
    invoked from within
"uplevel {
		TR BGCOLOR="white" {
		    TH { OUT "Account" }
		    # TH { OUT "DbId" }
		    TD ALIGN=CENTER {
			B { OUT "List of Users"  }
			BR
			S..."
    ("eval" body line 1)
    invoked from within
"eval uplevel [lrange $args end end]"
    (procedure "TABLE" line 8)
    invoked from within
"TABLE BORDER=1 CELLSPACING=0 WIDTH="80%" ALIGN="CENTER" {
		TR BGCOLOR="white" {
		    TH { OUT "Account" }
		    # TH { OUT "DbId" }
		    TD ALIGN=C..."
    invoked from within
"if { $opt(subpage) == "byaccount" } {
	    TABLE BORDER=1 CELLSPACING=0 WIDTH="80%" ALIGN="CENTER" {
		TR BGCOLOR="white" {
		    TH { OUT "Account" }..."
    ("uplevel" body line 132)
    invoked from within
"uplevel $body_script"