Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v diff -u -N -r1.66.2.13 -r1.66.2.14 --- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 21 Nov 2020 17:39:16 -0000 1.66.2.13 +++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 14 Feb 2021 21:08:02 -0000 1.66.2.14 @@ -1182,6 +1182,15 @@ ::file $subcmd $arg1 {*}$args } +# if {[cmd_exists xxx]} +if {[info commands ::nsf::cmd::info ] ne ""} { + interp alias {} cmd_exists {} ::nsf::cmd::info exists +} else { + ad_proc -private cmd_exists {cmd} { + expr {[::namespace which $cmd] ne ""} + } +} + # Local variables: # mode: tcl # tcl-indent-level: 4