diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 129503036..0ec078395 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-11  Gary Houston  <ghouston@arglist.com>
+
+	* strports.c (st_write): use memcpy, not strncpy.  thanks to
+	Dale P. Smith.
+
 2001-07-09  Thien-Thi Nguyen  <ttn@revel.glug.org>
 
 	* alist.c, alloca.c, arbiters.c, async.c, async.h, backtrace.c,
diff --git a/libguile/strports.c b/libguile/strports.c
index 66fc7b52c..969d2b79b 100644
--- a/libguile/strports.c
+++ b/libguile/strports.c
@@ -155,7 +155,7 @@ st_write (SCM port, const void *data, size_t size)
       int space = pt->write_end - pt->write_pos;
       int write_len = (size > space) ? space : size;
       
-      strncpy ((char *) pt->write_pos, input, write_len);
+      memcpy ((char *) pt->write_pos, input, write_len);
       pt->write_pos += write_len;
       size -= write_len;
       input += write_len;