diff --git a/scripts/ChangeLog b/scripts/ChangeLog
index f385cfdcf..a4f4f8195 100644
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,9 @@
+2001-07-12  Michael Livshin  <mlivshin@bigfoot.com>
+
+	* snarf-check-and-output-texi (do-argpos): complain to the stderr,
+	not stdout.  thanks to Dale P. Smith!
+	(nice-sig): cosmetic fix.
+
 2001-07-09  Thien-Thi Nguyen  <ttn@revel.glug.org>
 
 	* PROGRAM, generate-autoload, use2dot, punify, display-commentary,
diff --git a/scripts/snarf-check-and-output-texi b/scripts/snarf-check-and-output-texi
index 6a1888917..b61e77d34 100755
--- a/scripts/snarf-check-and-output-texi
+++ b/scripts/snarf-check-and-output-texi
@@ -168,7 +168,7 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
                             (if (> opt 0)
                               (format #t "]"))
                             (if (> var 0)
-                              (format #t "~A. ~A" (if (< var all) " " "")
+                              (format #t " . ~A"
                                       (car (last-pair *args*)))))))))))))))
       (format #t "\n~A\n" *function-name*)
       (format #t "@c snarfed from ~A:~A\n" *file* *line*)
@@ -263,7 +263,8 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
         (when idx
           (unless (= (+ idx 1) pos)
             (display (format #f "~A:~A: wrong position for argument ~A: ~A (should be ~A)\n"
-                             *file* line name pos (+ idx 1)))))))
+                             *file* line name pos (+ idx 1))
+                     (current-error-port))))))
      (x #f)))
 
   (define do-command