can't read "dir": no such variable
    while executing
"list __tcl3dOdeSourcePkgs $dir"
    (in namespace eval "::request" script line 25)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#******************************************************************************
#
#       Copyright:      2005-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 -> tcl3dOde
#       Filename:       pkgIndex.tcl
#
#       Author:         Paul Obermeier
#
#       Description:    Tcl index file for the tcl3dOde package.
#
#******************************************************************************

proc __tcl3dOdeSourcePkgs { dir } {
    source [file join $dir tcl3dOdeQuery.tcl]
    load [file join $dir tcl3dOde[info sharedlibextension]] tcl3dOde
    source [file join $dir tcl3dOdeUtil.tcl]
}

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