--- configure.ac~	2009-02-22 23:57:17.000000000 +0100
+++ configure.ac	2009-03-14 14:08:55.000000000 +0100
@@ -163,7 +163,7 @@
 if test "x$ac_arg_use_tcl" != "xno"; then
   ac_use_tcl=no
   temp_LIBS="$LIBS"
-  LIBS=""
+  LIBS="-ltcl"
   LIBTCL_LIBS=""
   if test "x$ac_arg_use_autopackage" = xyes; then
     AC_CHECK_HEADERS([tcl8.4/tcl.h tcl.h], [ac_use_tcl=yes
--- src/util_tcl.c.tcl	2009-03-14 14:23:14.000000000 +0100
+++ src/util_tcl.c	2009-03-14 14:41:32.000000000 +0100
@@ -123,9 +123,11 @@
 }
 
 #define TCL_CHECK_PARMS(n) {if (argc < n + 2) { \
-        snprintf (interp->result, TCL_RESULT_SIZE, \
+	char tmp[TCL_RESULT_SIZE]; \
+        snprintf (tmp, TCL_RESULT_SIZE, \
             i18n (2361, "Wrong number of arguments for command '%s %s'. Expected %d.\n"), \
                   argv[0], argv[1], n); \
+	Tcl_SetResult(interp, tmp, TCL_VOLATILE); \
         return TCL_ERROR; \
         } \
     }
@@ -266,8 +268,10 @@
         return TCL_command_help (cd, interp, argc, argv);
     else
     {
-        snprintf (interp->result, TCL_RESULT_SIZE, 
+	char tmp[TCL_RESULT_SIZE];
+        snprintf (tmp, TCL_RESULT_SIZE, 
             i18n (2365, "unknown command: %s"), argv[1]);
+	Tcl_SetResult(interp, tmp, TCL_VOLATILE);
         return TCL_ERROR;
     }
     return TCL_OK;