diff --git a/scripts/snarf-check-and-output-texi b/scripts/snarf-check-and-output-texi
index a74eee08c..ad5c7a2cc 100755
--- a/scripts/snarf-check-and-output-texi
+++ b/scripts/snarf-check-and-output-texi
@@ -254,8 +254,8 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
      (('cname ('id . name))
       (set! *c-function-name* (texi-quote (symbol->string name))))
 
-     (('fname ('string . name))
-      (set! *function-name* (texi-quote name)))
+     (('fname ('string . name) ...)
+      (set! *function-name* (texi-quote (apply string-append name))))
 
      (('type ('id . type))
       (set! *snarf-type* type))