diff --git a/scripts/convert-doc-index.scm b/scripts/convert-doc-index.scm
index 4df27506..7372be81 100644
--- a/scripts/convert-doc-index.scm
+++ b/scripts/convert-doc-index.scm
@@ -48,7 +48,7 @@
   (when (not (eof-object? line))
     (with-handler
       (lambda (obj)
-        (display `(Error processing line ,line details ,obj)))
+        (display `(Error processing line ,line details ,obj) (current-error-port)))
       (display (convert-line line))
       (newline))