can't read "dir": no such variable
    while executing
"file join $dir stooop.tcl"
    (in namespace eval "::request" script line 15)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
# @mdgen EXCLUDE: xifo.tcl
# @mdgen EXCLUDE: mkpkgidx.tcl
#
# Copyright (c) 2001 by Jean-Luc Fontaine .
# This code may be distributed under the same terms as Tcl.
#
# $Id: pkgIndex.tcl,v 1.10 2007/03/23 17:31:51 andreas_kupries Exp $

# Since stooop redefines the proc command and the default package facility will
# only load the stooop package at the first unknown command, proc being
# obviously known by default, forcing the loading of stooop is mandatory prior
# to the first proc declaration.

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

# the following package index instruction was generated using:
#   "tclsh mkpkgidx.tcl switched switched.tcl"
# (comment out the following line if you do not want to use the switched class
# as a package)

package ifneeded switched 2.2.1 [list source [file join $dir switched.tcl]]