diff --git a/en_US.ISO8859-1/books/porters-handbook/freebsd.dsl b/en_US.ISO8859-1/books/porters-handbook/freebsd.dsl
index 015ec7d482..8c417504c0 100644
--- a/en_US.ISO8859-1/books/porters-handbook/freebsd.dsl
+++ b/en_US.ISO8859-1/books/porters-handbook/freebsd.dsl
@@ -1,41 +1,39 @@
-<!-- $FreeBSD: doc/en_US.ISO_8859-1/books/porters-handbook/freebsd.dsl,v 1.1 2000/05/09 00:30:11 nik Exp $ -->
+<!-- $FreeBSD: doc/en_US.ISO_8859-1/books/porters-handbook/freebsd.dsl,v 1.2 2000/06/08 02:01:00 jim Exp $ -->
 
 <!-- Local DSSSL file for the Porter's Handbook.  This is so we can include
      a link to the -ports mailing list at the bottom of the HTML files, 
      rather than the -questions mailing list. -->
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl SYSTEM "../../share/sgml/freebsd.dsl" CDATA DSSSL>
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
  
       <![ %output.html; [ 
 	(define ($email-footer$)
           (make sequence
             (literal "For questions about the FreeBSD ports system, e-mail <")
-            (make element gi: "a"
-                  attributes: (list (list "href" "mailto:ports@freebsd.org"))
+            (create-link (list (list "HREF" "mailto:ports@FreeBSD.org"))
               (literal "ports@freebsd.org"))
             (literal ">.")
             (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 ">."))) 
+            (create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
+              (literal "doc@freebsd.org"))
+            (literal ">.")))
 
 	<!-- Convert " ... " to `` ... '' in the HTML output. -->
 	(element quote
 	  (make sequence
 	    (literal "``")
 	    (process-children)
 	    (literal "''")))
       ]]>
     </style-specification-body>
   </style-specification>
 
   <external-specification id="docbook" document="freebsd.dsl">
 </style-sheet>
diff --git a/en_US.ISO8859-1/share/sgml/freebsd.dsl b/en_US.ISO8859-1/share/sgml/freebsd.dsl
index 4f75914656..c050ae9b41 100644
--- a/en_US.ISO8859-1/share/sgml/freebsd.dsl
+++ b/en_US.ISO8859-1/share/sgml/freebsd.dsl
@@ -1,63 +1,62 @@
-<!-- $FreeBSD: doc/en_US.ISO_8859-1/share/sgml/freebsd.dsl,v 1.6 2001/03/24 09:42:02 nik Exp $ -->
+<!-- $FreeBSD: doc/en_US.ISO_8859-1/share/sgml/freebsd.dsl,v 1.7 2001/04/15 19:09:31 dd Exp $ -->
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
 <!ENTITY % output.html  "IGNORE"> 
 <!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
  
       <![ %output.html; [ 
 	(define ($email-footer$)
           (make sequence
 	    (make element gi: "p"
                   attributes: (list (list "align" "center"))
               (make element gi: "small"
                 (literal "This, and other documents, can be downloaded from ")
-	        (make element gi: "a"
-                      attributes: (list (list "href" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc"))
+		(create-link
+		  (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
                   (literal "ftp.FreeBSD.org/pub/FreeBSD/doc/"))
                 (literal ".")))
             (make element gi: "p"
                   attributes: (list (list "align" "center"))
               (make element gi: "small"  
                 (literal "For questions about FreeBSD, read the ")
-                (make element gi: "a"
-                      attributes: (list (list "href" "http://www.freebsd.org/docs.html"))
+		(create-link
+		  (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
                   (literal "documentation"))
                 (literal " before contacting <")
-                (make element gi: "a"
-                      attributes: (list (list "href" "mailto:questions@FreeBSD.org"))
+		(create-link
+		  (list (list "HREF" "mailto:questions@FreeBSD.org"))
                   (literal "questions@FreeBSD.org"))
                 (literal ">.")
                 (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"))
+		(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
                   (literal "doc@FreeBSD.org"))
 	        (literal ">.")))))
 
 
 	<!-- Convert " ... " to `` ... '' in the HTML output. -->
 	(element quote
 	  (make sequence
 	    (literal "``")
 	    (process-children)
 	    (literal "''")))
 
         <!-- Generate links to HTML man pages -->
         (define %refentry-xref-link% #t)
 
         <!-- Specify how to generate the man page link HREF -->
         (define ($create-refentry-xref-link$ refentrytitle manvolnum)
 	  (string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
 			 refentrytitle "&" "sektion=" manvolnum))
       ]]>
     </style-specification-body>
   </style-specification>
 
   <external-specification id="docbook" document="freebsd.dsl">
 </style-sheet>
diff --git a/en_US.ISO_8859-1/books/porters-handbook/freebsd.dsl b/en_US.ISO_8859-1/books/porters-handbook/freebsd.dsl
index 015ec7d482..8c417504c0 100644
--- a/en_US.ISO_8859-1/books/porters-handbook/freebsd.dsl
+++ b/en_US.ISO_8859-1/books/porters-handbook/freebsd.dsl
@@ -1,41 +1,39 @@
-<!-- $FreeBSD: doc/en_US.ISO_8859-1/books/porters-handbook/freebsd.dsl,v 1.1 2000/05/09 00:30:11 nik Exp $ -->
+<!-- $FreeBSD: doc/en_US.ISO_8859-1/books/porters-handbook/freebsd.dsl,v 1.2 2000/06/08 02:01:00 jim Exp $ -->
 
 <!-- Local DSSSL file for the Porter's Handbook.  This is so we can include
      a link to the -ports mailing list at the bottom of the HTML files, 
      rather than the -questions mailing list. -->
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl SYSTEM "../../share/sgml/freebsd.dsl" CDATA DSSSL>
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
  
       <![ %output.html; [ 
 	(define ($email-footer$)
           (make sequence
             (literal "For questions about the FreeBSD ports system, e-mail <")
-            (make element gi: "a"
-                  attributes: (list (list "href" "mailto:ports@freebsd.org"))
+            (create-link (list (list "HREF" "mailto:ports@FreeBSD.org"))
               (literal "ports@freebsd.org"))
             (literal ">.")
             (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 ">."))) 
+            (create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
+              (literal "doc@freebsd.org"))
+            (literal ">.")))
 
 	<!-- Convert " ... " to `` ... '' in the HTML output. -->
 	(element quote
 	  (make sequence
 	    (literal "``")
 	    (process-children)
 	    (literal "''")))
       ]]>
     </style-specification-body>
   </style-specification>
 
   <external-specification id="docbook" document="freebsd.dsl">
 </style-sheet>
diff --git a/en_US.ISO_8859-1/share/sgml/freebsd.dsl b/en_US.ISO_8859-1/share/sgml/freebsd.dsl
index 4f75914656..c050ae9b41 100644
--- a/en_US.ISO_8859-1/share/sgml/freebsd.dsl
+++ b/en_US.ISO_8859-1/share/sgml/freebsd.dsl
@@ -1,63 +1,62 @@
-<!-- $FreeBSD: doc/en_US.ISO_8859-1/share/sgml/freebsd.dsl,v 1.6 2001/03/24 09:42:02 nik Exp $ -->
+<!-- $FreeBSD: doc/en_US.ISO_8859-1/share/sgml/freebsd.dsl,v 1.7 2001/04/15 19:09:31 dd Exp $ -->
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
 <!ENTITY % output.html  "IGNORE"> 
 <!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
  
       <![ %output.html; [ 
 	(define ($email-footer$)
           (make sequence
 	    (make element gi: "p"
                   attributes: (list (list "align" "center"))
               (make element gi: "small"
                 (literal "This, and other documents, can be downloaded from ")
-	        (make element gi: "a"
-                      attributes: (list (list "href" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc"))
+		(create-link
+		  (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
                   (literal "ftp.FreeBSD.org/pub/FreeBSD/doc/"))
                 (literal ".")))
             (make element gi: "p"
                   attributes: (list (list "align" "center"))
               (make element gi: "small"  
                 (literal "For questions about FreeBSD, read the ")
-                (make element gi: "a"
-                      attributes: (list (list "href" "http://www.freebsd.org/docs.html"))
+		(create-link
+		  (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
                   (literal "documentation"))
                 (literal " before contacting <")
-                (make element gi: "a"
-                      attributes: (list (list "href" "mailto:questions@FreeBSD.org"))
+		(create-link
+		  (list (list "HREF" "mailto:questions@FreeBSD.org"))
                   (literal "questions@FreeBSD.org"))
                 (literal ">.")
                 (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"))
+		(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
                   (literal "doc@FreeBSD.org"))
 	        (literal ">.")))))
 
 
 	<!-- Convert " ... " to `` ... '' in the HTML output. -->
 	(element quote
 	  (make sequence
 	    (literal "``")
 	    (process-children)
 	    (literal "''")))
 
         <!-- Generate links to HTML man pages -->
         (define %refentry-xref-link% #t)
 
         <!-- Specify how to generate the man page link HREF -->
         (define ($create-refentry-xref-link$ refentrytitle manvolnum)
 	  (string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
 			 refentrytitle "&" "sektion=" manvolnum))
       ]]>
     </style-specification-body>
   </style-specification>
 
   <external-specification id="docbook" document="freebsd.dsl">
 </style-sheet>