From 27992fb1ac4b86097a3fefa3b13f4d150a44aa03 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Tue, 15 Nov 2011 07:49:20 +0000
Subject: fixed bug 3436716

svn path=/trunk/externals/loaders/tclpd/; revision=15748
---
 tcl_loader.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tcl_loader.c')

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);
-- 
cgit v1.2.1