diff --git a/doc/src/sgml/fixrtf b/doc/src/sgml/fixrtf
new file mode 100755
index 0000000000000000000000000000000000000000..a6a701f6db0895ab61cc3a434b3ffb9d9d32deb4
--- /dev/null
+++ b/doc/src/sgml/fixrtf
@@ -0,0 +1,23 @@
+#!/bin/sh
+# fixrtf
+# Repair (slightly) damaged RTF generated by jade
+# Applixware wants the s0 stylesheet defined, whereas
+#  M$Word does not care about it.
+# (c) 2001, Thomas Lockhart, PostgreSQL Inc.
+
+flist=$@
+if [ "$flist" = "" ] ; then
+  flist=*.rtf
+fi
+
+for f in $flist ; do
+  echo -n "Repairing $f..."
+  if [ -r $f ] ; then
+    (sed 's/{\\stylesheet{\\s1/{\\stylesheet{\\s0 Normal 0;}{\\s1/g' $f > $f.new \
+      && mv -f $f.new $f \
+      && echo " done") || echo " failed"
+  else
+    echo " file not found"
+  fi
+done
+exit