$OpenBSD: patch-Tcl_h,v 1.1 2001/07/30 15:33:22 espie Exp $
--- Tcl.h.orig	Sat Mar 16 22:14:34 1996
+++ Tcl.h	Mon Jul 30 17:25:38 2001
@@ -53,7 +53,8 @@ class Tcl {
 	inline int dark() const { return (tcl_ == 0); }
 	inline Tcl_Interp* interp() const { return (tcl_); }
 	inline char* result() const { return (tcl_->result); }
-	inline void result(const char* p) { tcl_->result = (char*)p; }
+	inline void result(const char* p, Tcl_FreeProc* freeProc = TCL_STATIC)
+	    { Tcl_SetResult(tcl_, (char *)p, freeProc); }
 	void resultf(const char* fmt, ...);
 	inline void CreateCommand(const char* cmd, Tcl_CmdProc* cproc,
 				  ClientData cd = 0,
