diff --git a/en_US.ISO8859-1/share/sgml/freebsd.dsl b/en_US.ISO8859-1/share/sgml/freebsd.dsl
index 0ee664bacf..c701261252 100644
--- a/en_US.ISO8859-1/share/sgml/freebsd.dsl
+++ b/en_US.ISO8859-1/share/sgml/freebsd.dsl
@@ -1,55 +1,66 @@
-
+
]>
.")
(make empty-element gi: "br")
(literal "For questions about this documentation, e-mail <")
(make element gi: "a"
attributes: (list (list "href" "mailto:doc@FreeBSD.org"))
(literal "doc@FreeBSD.org"))
(literal ">.")))))
(element quote
(make sequence
(literal "``")
(process-children)
(literal "''")))
+
+
+ (define %refentry-xref-link% #t)
+
+
+ (define ($create-refentry-xref-link$ refentrytitle manvolnum)
+ (string-append "http://www.FreeBSD.org/cgi/man.cgi?"
+ refentrytitle
+ "("
+ manvolnum
+ ")"))
]]>
diff --git a/en_US.ISO_8859-1/share/sgml/freebsd.dsl b/en_US.ISO_8859-1/share/sgml/freebsd.dsl
index 0ee664bacf..c701261252 100644
--- a/en_US.ISO_8859-1/share/sgml/freebsd.dsl
+++ b/en_US.ISO_8859-1/share/sgml/freebsd.dsl
@@ -1,55 +1,66 @@
-
+
]>
.")
(make empty-element gi: "br")
(literal "For questions about this documentation, e-mail <")
(make element gi: "a"
attributes: (list (list "href" "mailto:doc@FreeBSD.org"))
(literal "doc@FreeBSD.org"))
(literal ">.")))))
(element quote
(make sequence
(literal "``")
(process-children)
(literal "''")))
+
+
+ (define %refentry-xref-link% #t)
+
+
+ (define ($create-refentry-xref-link$ refentrytitle manvolnum)
+ (string-append "http://www.FreeBSD.org/cgi/man.cgi?"
+ refentrytitle
+ "("
+ manvolnum
+ ")"))
]]>