$OpenBSD$
--- unix/tclUnixChan.c.orig	2004-02-01 13:06:49.000000000 -0800
+++ unix/tclUnixChan.c	2004-02-01 13:08:59.000000000 -0800
@@ -2289,6 +2289,8 @@ TcpGetOptionProc(instanceData, interp, o
 
 		Tcl_ExternalToUtfDString(NULL, hostEntPtr->h_name, -1, &ds);
 		Tcl_DStringAppendElement(dsPtr, Tcl_DStringValue(&ds));
+
+		Tcl_DStringFree(&ds);
 	    } else {
 		Tcl_DStringAppendElement(dsPtr, inet_ntoa(peername.sin_addr));
 	    }
@@ -2335,6 +2337,8 @@ TcpGetOptionProc(instanceData, interp, o
 
 		Tcl_ExternalToUtfDString(NULL, hostEntPtr->h_name, -1, &ds);
 		Tcl_DStringAppendElement(dsPtr, Tcl_DStringValue(&ds));
+
+		Tcl_DStringFree(&ds);
 	    } else {
 		Tcl_DStringAppendElement(dsPtr, inet_ntoa(sockname.sin_addr));
 	    }
