diff --git a/cde/programs/dtdocbook/tcl/tclUnixSock.c b/cde/programs/dtdocbook/tcl/tclUnixSock.c
index 59cb4124a..606f1ca86 100644
--- a/cde/programs/dtdocbook/tcl/tclUnixSock.c
+++ b/cde/programs/dtdocbook/tcl/tclUnixSock.c
@@ -77,9 +77,9 @@ Tcl_GetHostName(void)
     if (uname(&u) > -1) {
         hp = gethostbyname(u.nodename);
         if (hp != NULL) {
-            strcpy(hostname, hp->h_name);
+            snprintf(hostname, sizeof(hostname), "%s", hp->h_name);
         } else {
-            strcpy(hostname, u.nodename);
+            snprintf(hostname, sizeof(hostname), "%s", u.nodename);
         }
         hostnameInited = 1;
         return hostname;