diff --git a/scripts/ChangeLog b/scripts/ChangeLog
index 7d619d2b0..484c62c67 100644
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,9 @@
+2002-03-12  Neil Jerram  <neil@ossau.uklinux.net>
+
+	* snarf-check-and-output-texi (snarf-check-and-output-texi): If
+	supplied, the `--manual' flag arrives as a string, not a symbol,
+	so test for it as such.
+
 2002-03-03  Neil Jerram  <neil@ossau.uklinux.net>
 
 	* snarf-guile-m4-docs (display-texi): Strip off `# ' from start of
diff --git a/scripts/snarf-check-and-output-texi b/scripts/snarf-check-and-output-texi
index 37d751c86..d669cab86 100755
--- a/scripts/snarf-check-and-output-texi
+++ b/scripts/snarf-check-and-output-texi
@@ -42,7 +42,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 (define *manual-flag* #f)
 
 (define (snarf-check-and-output-texi . flags)
-  (if (memq '--manual flags)
+  (if (member "--manual" flags)
       (set! *manual-flag* #t))
   (process-stream (current-input-port)))