1 files changed, 5 insertions, 5 deletions
diff --git a/otherlibs/labltk/support/cltkVar.c b/otherlibs/labltk/support/cltkVar.c
index 674b8e9db..0411a94cd 100644
--- a/otherlibs/labltk/support/cltkVar.c
+++ b/otherlibs/labltk/support/cltkVar.c
@@ -38,8 +38,8 @@ CAMLprim value camltk_getvar(value var)
   stat_free(stable_var);
 
   if (s == NULL)
-    tk_error(cltclinterp->result);
-  else
+    tk_error(Tcl_GetStringResult(cltclinterp));
+  else 
     return(tcl_string_to_caml(s));
 }
 
@@ -64,8 +64,8 @@ CAMLprim value camltk_setvar(value var, value contents)
   stat_free(utf_contents);
 
   if (s == NULL)
-    tk_error(cltclinterp->result);
-  else
+    tk_error(Tcl_GetStringResult(cltclinterp));
+  else 
     return(Val_unit);
 }
 
@@ -104,7 +104,7 @@ CAMLprim value camltk_trace_var(value var, value cbid)
                    (ClientData) (Long_val(cbid)))
                    != TCL_OK) {
     stat_free(cvar);
-    tk_error(cltclinterp->result);
+    tk_error(Tcl_GetStringResult(cltclinterp));
   };
   stat_free(cvar);
   return Val_unit;