can't read "argv": no such variable
    while executing
"lindex $argv 0"
    (in namespace eval "::request" script line 57)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
# Test si on est dans un starpack ou pas


set InStarPack [regexp {app-ordalie} [info script]]

if {! $InStarPack} {
    if {$tcl_platform(platform) eq "windows"} {
	set OrdaliDir [file join o:/ ordali]
	set GscopeDir [file join m:/ ripp gscope]
	set OrdLibDir [file join C:/ Tcl lib]
	set RepertoireDuGenome [pwd]
    } else {
	if {! [info exists OrdaliDir]} {
	    if {[info exists env(ORDALIDIR)]} {
		set OrdaliDir $env(ORDALIDIR)
	    } else {
		set OrdaliDir [file join [pwd] ..]
	    }
	}
	set OrdLibDir [file join $OrdaliDir lib]
	
	if {[info exists env(GSCOPEDIR)]} {
	    set GscopeDir $env(GSCOPEDIR)
	} elseif {! [info exists GscopeDir]} {
	    set GscopeDir [file join /home ripp gscope]
	}
	if {[info exists env(REPERTOIREDUGENOME)]} {
	    set RepertoireDuGenome $env(REPERTOIREDUGENOME)
	} else {
	    set RepertoireDuGenome [file join g: genomics Pabyssi]
	}
    }
} else {
    puts "\n Running Ordalie as a starpack\n"
    set OrdaliDir [file normalize [file join [file dirname [info script]] .. .. ..]]
    puts "OrdaliDir $OrdaliDir"
    set OrdLibDir [file join $OrdaliDir lib]
    puts "OrdaLibDir $OrdLibDir"
    set OrdEtcDir [file join $OrdaliDir etc]
    set RepertoireDuGenome ""
}

package require platform
# triche, pour developpement sous mac ...
if {[::platform::generic] eq "macosx-ix86"} {
    set auto_path [linsert $auto_path 0 [file join $OrdaliDir Build ToPack lib]]
}
set auto_path [linsert $auto_path 0 /home/moumou/tmp/tcl8.6.0/install/lib]
set auto_path [linsert $auto_path 0 $OrdLibDir]
if {$tcl_version <= 8.5} {
    package require TclOO
}

################
# arguments
#
if {[lindex $argv 0] eq "-OProfiling"} {
    package require profiler
    ::profiler::init
    set argv [lreplace $argv 0 0]
}

##############################
# Initialisation variables
#
set GlobalsAuDepart [info globals]
set ProcsAuDepart [info procs]

if {! $InStarPack} {
    if {! [file exists [file join $GscopeDir gscope_source.tcl]]} {
	source [file join $OrdaliDir src LesProcsDeGscope.tcl]
    } else {
	set OrdaliDejaSource 1
	source [file join $GscopeDir gscope_source.tcl]
    }
    
    set OrdaliDejaSource 0
    source [file join $OrdaliDir src ordali_source.tcl]
} 

#######################
# procs utilitaires
#
set VariablesAuDepart [info globals]
if {[lindex $argv 0] == "ToutesLesProcs"} {
    EtVoilaToutesLesProcs
    exit
}

### Launch ORDALIE ######
# Programme principal
InitLesDefauts
set retour [InterpreteLaLigneDeCommande $argv]
if {[ModeI]} {
    LoadTkAndPackages
}
if {$retour eq ""} {
    LanceOrdali master 
}

if {"-recall" in $argv} {
    set i [lsearch $argv "-recall"]
    set fic [lindex $argv [incr i]]
    Recall $fic
}

######## Ca finit ici #####################