can't read "dir": no such variable
    while executing
"list __tcl3dFTGLSourcePkgs $dir"
    (in namespace eval "::request" script line 25)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#******************************************************************************
#
#       Copyright:      2006-2010 Paul Obermeier (obermeier@tcl3d.org)
#
#                       See the file "Tcl3D_License.txt" for information on
#                       usage and redistribution of this file, and for a
#                       DISCLAIMER OF ALL WARRANTIES.
#
#       Module:         Tcl3D -> tcl3dFTGL
#       Filename:       pkgIndex.tcl
#
#       Author:         Paul Obermeier
#
#       Description:    Tcl index file for the tcl3dFTGL package.
#
#******************************************************************************

proc __tcl3dFTGLSourcePkgs { dir } {
    source [file join $dir tcl3dFTGLQuery.tcl]
    load [file join $dir tcl3dFTGL[info sharedlibextension]] tcl3dFTGL
    source [file join $dir tcl3dFTGLUtil.tcl]
}

if {![package vsatisfies [package provide Tcl] 8.4]} {return}
package ifneeded tcl3dftgl 0.5.0 "[list __tcl3dFTGLSourcePkgs $dir]"