X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=cdb%2Fwriteable.c;h=9eefb2289ee795fcb320636b4ccb775fd0f7585e;hb=f50d1bba6d65e1ec4b1d66d3358cf376ee22ce38;hp=0df1b2799ae55a59e60672c23e99fe56f97304aa;hpb=ceed4cf646a34245b3bc88089a2187ebf7a41f0f;p=chiark-tcl.git

diff --git a/cdb/writeable.c b/cdb/writeable.c
index 0df1b27..9eefb22 100644
--- a/cdb/writeable.c
+++ b/cdb/writeable.c
@@ -701,7 +701,7 @@ static int compact_core(Tcl_Interp *ip, Rw *rw, unsigned long logsz,
   if (!a.mainfile) PE("create .tmp for new main during compact");
 
   r= ht_forall(&rw->logincore, addto_main, &a);
-  if (r) { rc= cht_posixerr(ip, r, "error writing to new .main"
+  if (r) { rc= cht_posixerr(ip, errno, "error writing to new .main"
 			    " during compact");  goto x_rc; }
 
   r= putc('\n', a.mainfile);