can't read "dir": no such variable
    while executing
"file join $dir tablelist.tcl"
    (in namespace eval "::request" script line 11)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#==============================================================================
# Tablelist and Tablelist_tile package index file.
#
# Copyright (c) 2000-2020  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
#==============================================================================

#
# Regular packages:
#
package ifneeded tablelist         6.11 \
	[list source [file join $dir tablelist.tcl]]
package ifneeded tablelist_tile    6.11 \
	[list source [file join $dir tablelist_tile.tcl]]

#
# Aliases:
#
package ifneeded Tablelist         6.11 \
	[list package require -exact tablelist	    6.11]
package ifneeded Tablelist_tile    6.11 \
	[list package require -exact tablelist_tile 6.11]

#
# Code common to all packages:
#
package ifneeded tablelist::common 6.11 \
	[list source [file join $dir tablelistCommon.tcl]]