diff --git a/CHANGES b/CHANGES
index fcd483f..76d84fd 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,4 +1,5 @@
 0.24:
+  fix scan_to_sa (Tim Lorenz)
 
 0.23:
   also recognize EPFNOSUPPORT as EAFNOSUPPORT (groan)
diff --git a/textcode/scan_to_sa.c b/textcode/scan_to_sa.c
index 22898cd..8a078ba 100644
--- a/textcode/scan_to_sa.c
+++ b/textcode/scan_to_sa.c
@@ -4,10 +4,10 @@
 
 unsigned long scan_to_sa(unsigned long (*func)(const char*,char*,unsigned long*),
 			 const char* src,stralloc* sa) {
-  unsigned long scanned;
+  unsigned long written;
   unsigned long r;
   if (!stralloc_readyplus(sa,str_len(src))) return 0;
-  if ((r=func(src,sa->s+sa->len,&scanned)))
-    sa->len+=r;
+  if ((r=func(src,sa->s+sa->len,&written)))
+    sa->len+=written;
   return r;
 }