$OpenBSD: patch-source_cc,v 1.1 2001/07/30 15:33:22 espie Exp $
--- source.cc.orig	Thu Apr  4 17:05:45 1996
+++ source.cc	Mon Jul 30 17:25:38 2001
@@ -251,8 +251,7 @@ int Source::command(int argc, const char
 			return (TCL_OK);
 		}
 		if (strcmp(argv[1], "addr") == 0) {
-			strcpy(wrk, InetNtoa(addr_));
-			tcl.result(wrk);
+			tcl.result(InetNtoa(addr_), TCL_DYNAMIC);
 			return (TCL_OK);
 		}
 		if (strcmp(argv[1], "srcid") == 0) {