--- libguile/guile-snarf.in.orig	2010-12-13 17:24:40 UTC
+++ libguile/guile-snarf.in
@@ -51,7 +51,8 @@ modern_snarf ()                         
     ## empty file.
     echo "/* cpp arguments: $@ */" ;
     ${cpp} -DSCM_MAGIC_SNARF_INITS -DSCM_MAGIC_SNARFER "$@" > ${temp} && cpp_ok_p=true
-    grep "^ *\^ *\^" ${temp} | sed -e "s/^ *\^ *\^//" -e "s/\^\ *:\ *\^.*/;/"
+    sed -e 's/\^ *\^/\
+^^/g' ${temp} | grep "^.*\^ *\^" | sed -e "s/^.*\^ *\^//" -e "s/\^\ *:\ *\^.*/;/"
 }
 
 ## main