#3 Error with shell command completions and tcl8.4

[Philip Quaife]

In tclreadlineCompleter.tcl
in proc ScriptCompleter

The command:
if {[catch [list set alias [namespace origin
$alias]]] }{

Causes an error if the command is not a tcl command

EG:
rmdir /usr/lo[tab]

This is caused by namespace origin being evaluated
prior to execution of the catch statement.

The fix:
if {[catch {set alias [namespace origin $alias]} ] }{