Error during SESSION activate. I got the message
Got 'database is locked' executing 'select * from rivet_session WHERE 1 = 1 AND session_id = 'FADA5EE530C223B64571480668163F98' AND ip_address = '192.168.10.136''
can't read "dir": no such variable
    while executing
"file join $dir ftpd.tcl"
    (in namespace eval "::request" script line 2)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)

OUTPUT BUFFER:

if {![package vsatisfies [package provide Tcl] 8.3]} {return} package ifneeded ftpd 1.3 [list source [file join $dir ftpd.tcl]]