Hello Kenneth,
Here is the documentation for TCL's source command:
http://www.tcl.tk/man/tcl8.4/TclCmd/source.htm As you can see, it doesn't pass arguments to the script. If you only need this functionality in tclsh, something like this might work:
proc mysource {script args} {
set l [list exec [info nameofexecutable] $script]
set l [concat $l $args]
return [eval $l]
}
mysource script.tcl arg1 arg2 arg3
Or see http://wiki.tcl.tk/10025 for another method.
However, if you are using OpenACS / AOLserver this might not have the effect you expect. If that's the case, please let us know more about what you're trying to accomplish.
