Index: openacs-4/packages/acs-tcl/tcl/install-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/install-procs.tcl,v diff -u -r1.35.2.12 -r1.35.2.13 --- openacs-4/packages/acs-tcl/tcl/install-procs.tcl 26 Dec 2024 17:56:10 -0000 1.35.2.12 +++ openacs-4/packages/acs-tcl/tcl/install-procs.tcl 26 Dec 2024 18:25:22 -0000 1.35.2.13 @@ -157,8 +157,12 @@ lappend out "A package is already mounted at '$mount_point', ignoring mount command" set node_id "" } - + if {$context_id eq ""} { + set context_id default_context + } + + if {$context_id eq ""} { set context_id [install::xml::util::get_id $context_id] } } @@ -1184,7 +1188,7 @@ variable ::install::xml::ids if {[catch { - if {[string is integer $id]} { + if {[string is integer -strict $id]} { set result $id } elseif {[info exists ids($id)]} { set result $ids($id)