diff --git a/THANKS b/THANKS
index 05b5810f7..f2dce3777 100644
--- a/THANKS
+++ b/THANKS
@@ -9,3 +9,4 @@ Contributors since the last release:
 
 For fixes or providing information which led to a fix:
 
+       Brad Knotwell
diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index d575c7c7e..16631ddd9 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,10 @@
+2000-06-21  Michael Livshin  <mlivshin@bigfoot.com>
+
+	* guile-doc-snarf.in: use cut instead of sed, that's much much
+	faster.  also, don't call basename more than needed.  and, to gain 
+	a couple of microseconds more, don't call cat needlessly.  (thanks 
+	to Brad Knotwell).
+
 2000-06-21  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
 	* guile-snarf.awk.in, guile-snarf.in, snarf.h:  Rename SCM__I to
diff --git a/libguile/guile-doc-snarf.in b/libguile/guile-doc-snarf.in
index 89dcc04ee..cce78ed89 100755
--- a/libguile/guile-doc-snarf.in
+++ b/libguile/guile-doc-snarf.in
@@ -28,5 +28,4 @@ ${AWK} -f guile-func-name-check "$fullfilename"
 ## We must use a temporary file here, instead of a pipe, because we
 ## need to know if CPP exits with a non-zero status.
 ${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $?
-cat ${temp} | sed 's/^\(.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}\).*/\1/g' | \
-${AWK} -f `dirname $0`/guile-snarf.awk `basename ${dot_doc}`
+cut -c1-1023 ${temp} | ${AWK} -f `dirname $0`/guile-snarf.awk ${dot_doc}