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