tcl: support for jtcl which does not define load command, bug 407227
diff --git a/tcl/plugins/org.eclipse.dltk.tcl.core/scripts/dltk.tcl b/tcl/plugins/org.eclipse.dltk.tcl.core/scripts/dltk.tcl
index 4cb903c..0be7756 100644
--- a/tcl/plugins/org.eclipse.dltk.tcl.core/scripts/dltk.tcl
+++ b/tcl/plugins/org.eclipse.dltk.tcl.core/scripts/dltk.tcl
@@ -9,6 +9,10 @@
# to ignore proc renames.
#checker -scope global exclude warnRedefine
+proc hasCommand cmdName {
+ return [expr [llength [info commands $cmdName]] > 0];
+}
+
## Begin renaming of core tcl cmds
rename package package-org
proc package {subcmd args} {
@@ -98,7 +102,9 @@
return [uplevel 1 "::source-org $args"]
} ;# End of proc source
-rename load load-org
+if [hasCommand load] {
+ rename load load-org
+}
proc load {args} {
global pkg_load_tmp pkg_stack
global file_load_tmp
