diff --git a/lib/krb5/net_write.c b/lib/krb5/net_write.c
index 6ec2e2bf8..e18ce1160 100644
--- a/lib/krb5/net_write.c
+++ b/lib/krb5/net_write.c
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 1997 Kungliga Tekniska Högskolan
+ * Copyright (c) 1997, 1998 Kungliga Tekniska Högskolan
  * (Royal Institute of Technology, Stockholm, Sweden). 
  * All rights reserved. 
  *
@@ -47,16 +47,6 @@ krb5_net_write (krb5_context context,
 		size_t len)
 {
   int fd = *((int *)p_fd);
-  char *cbuf = (char *)buf;
-  ssize_t count;
-  size_t rem = len;
 
-  while (rem > 0) {
-    count = write (fd, cbuf, rem);
-    if (count < 0)
-      return count;
-    cbuf += count;
-    rem -= count;
-  }
-  return len;
+  return net_write (fd, buf, len);
 }