diff options
| author | mescalinum <mescalinum@users.sourceforge.net> | 2011-11-15 07:49:20 +0000 |
|---|---|---|
| committer | mescalinum <mescalinum@users.sourceforge.net> | 2011-11-15 07:49:20 +0000 |
| commit | 27992fb1ac4b86097a3fefa3b13f4d150a44aa03 (patch) | |
| tree | 266556307f9b0ec29219ad42578600a9bbd279a9 /tcl_loader.c | |
| parent | 1cfa4de1d848808738c9123a85764cd23f7b61d5 (diff) | |
fixed bug 3436716
svn path=/trunk/externals/loaders/tclpd/; revision=15748
Diffstat (limited to 'tcl_loader.c')
| -rw-r--r-- | tcl_loader.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tcl_loader.c b/tcl_loader.c index 8d07bf7..a572c43 100644 --- a/tcl_loader.c +++ b/tcl_loader.c @@ -69,7 +69,7 @@ found: verbose(-1, "tclpd loader: loading tcl file %s", filename); result = Tcl_EvalFile(tclpd_interp, filename); if(result == TCL_OK) { - source_table_add(objectname, filename); + source_table_add(classname, filename); verbose(0, "tclpd loader: loaded %s", filename); } else { error("tclpd loader: error trying to load %s", filename); |