--- gforth/prim	1998/12/12 22:32:04	1.18
+++ gforth/prim	1998/12/13 23:29:59	1.19
@@ -1536,6 +1536,7 @@ delete-file	c_addr u -- wior		file	delet
 wior = IOR(unlink(tilde_cstr(c_addr, u, 1))==-1);
 
 rename-file	c_addr1 u1 c_addr2 u2 -- wior	file-ext	rename_file
+""rename file c_addr1 u1 to new name c_addr2 u2""
 char *s1=tilde_cstr(c_addr2, u2, 1);
 wior = IOR(rename(tilde_cstr(c_addr1, u1, 0), s1)==-1);