diff --git a/en_US.ISO8859-1/share/sgml/freebsd.dsl b/en_US.ISO8859-1/share/sgml/freebsd.dsl
index 92c1a93084..af2d056146 100644
--- a/en_US.ISO8859-1/share/sgml/freebsd.dsl
+++ b/en_US.ISO8859-1/share/sgml/freebsd.dsl
@@ -1,267 +1,268 @@
 <!-- $FreeBSD$ -->
 
 <!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">
 <!ENTITY % output.print.niceheaders "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
       <!-- HTML only .................................................... -->
  
       <![ %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 ")
 		(create-link
 		  (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
                   (literal "ftp://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 ")
 		(create-link
 		  (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
                   (literal "documentation"))
                 (literal " before contacting <")
 		(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 <")
 		(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$ #!optional (n (current-node)))
           (let* ((r (select-elements (children n) (normalize "refentrytitle")))
                  (m (select-elements (children n) (normalize "manvolnum")))
                  (v (attribute-string (normalize "vendor") n))
                  (u (string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
                          (data r) "&" "sektion=" (data m))))
             (case v
+              (("current") (string-append u "&" "manpath=FreeBSD+5.0-current"))
               (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0"))
               (("netbsd")  (string-append u "&" "manpath=NetBSD+1.5"))
               (("ports")   (string-append u "&" "manpath=FreeBSD+Ports"))
               (else u))))
       ]]>
 
       <!-- More aesthetically pleasing chapter headers for print output --> 
 
       <![ %output.print.niceheaders; [
 
       (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
       (define niceheader-rule-spaceafter 0pt)
 
       (define ($component-title$)
 	(let* ((info (cond
 		((equal? (gi) (normalize "appendix"))
 		 (select-elements (children (current-node)) (normalize "docinfo")))
 		((equal? (gi) (normalize "article"))
 		 (node-list-filter-by-gi (children (current-node))
 					 (list (normalize "artheader")
 					       (normalize "articleinfo"))))
 		((equal? (gi) (normalize "bibliography"))
 		 (select-elements (children (current-node)) (normalize "docinfo")))
 		((equal? (gi) (normalize "chapter"))
 		 (select-elements (children (current-node)) (normalize "docinfo")))
 		((equal? (gi) (normalize "dedication")) 
 		 (empty-node-list))
 		((equal? (gi) (normalize "glossary"))
 		 (select-elements (children (current-node)) (normalize "docinfo")))
 		((equal? (gi) (normalize "index"))
 		 (select-elements (children (current-node)) (normalize "docinfo")))
 		((equal? (gi) (normalize "preface"))
 		 (select-elements (children (current-node)) (normalize "docinfo")))
 		((equal? (gi) (normalize "reference"))
 		 (select-elements (children (current-node)) (normalize "docinfo")))
 		((equal? (gi) (normalize "setindex"))
 		 (select-elements (children (current-node)) (normalize "docinfo")))
 		(else
 		 (empty-node-list))))
 	 (exp-children (if (node-list-empty? info)
 			   (empty-node-list)
 			   (expand-children (children info) 
 					    (list (normalize "bookbiblio") 
 						  (normalize "bibliomisc")
 						  (normalize "biblioset")))))
 	 (parent-titles (select-elements (children (current-node)) (normalize "title")))
 	 (info-titles   (select-elements exp-children (normalize "title")))
 	 (titles        (if (node-list-empty? parent-titles)
 			    info-titles
 			    parent-titles))
 	 (subtitles     (select-elements exp-children (normalize "subtitle"))))
     (make sequence
       (make paragraph
 	font-family-name: %title-font-family%
 	font-weight: 'bold
 	font-size: (HSIZE 4)
 	line-spacing: (* (HSIZE 4) %line-spacing-factor%)
 	space-before: (* (HSIZE 4) %head-before-factor%)
 	start-indent: 0pt
 	first-line-start-indent: 0pt
 	quadding: %component-title-quadding%
 	heading-level: (if %generate-heading-level% 1 0)
 	keep-with-next?: #t
 
 	(if (string=? (element-label) "")
 	    (empty-sosofo)
 	    (literal (gentext-element-name-space (current-node))
 		     (element-label)
 		     (gentext-label-title-sep (gi)))))
       (make paragraph
 	font-family-name: %title-font-family%
 	font-weight: 'bold
 	font-posture: 'italic
 	font-size: (HSIZE 6)
 	line-spacing: (* (HSIZE 6) %line-spacing-factor%)
 ;	space-before: (* (HSIZE 5) %head-before-factor%)
 	start-indent: 0pt
 	first-line-start-indent: 0pt
 	quadding: %component-title-quadding%
 	heading-level: (if %generate-heading-level% 1 0)
 	keep-with-next?: #t
 
 	(if (node-list-empty? titles)
 	    (element-title-sosofo) ;; get a default!
 	    (with-mode component-title-mode
 	      (make sequence
 		(process-node-list titles)))))
 
       (make paragraph
 	font-family-name: %title-font-family%
 	font-weight: 'bold
 	font-posture: 'italic
 	font-size: (HSIZE 3)
 	line-spacing: (* (HSIZE 3) %line-spacing-factor%)
 	space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
 	space-after: (* (HSIZE 4) %head-after-factor%)
 	start-indent: 0pt
 	first-line-start-indent: 0pt
 	quadding: %component-subtitle-quadding%
 	keep-with-next?: #t
 
 	(with-mode component-title-mode
 	  (make sequence
 	    (process-node-list subtitles))))
 
       (if (equal? (gi) (normalize "index"))
 	(empty-sosofo)
 	(make rule
 	  length: %body-width%
 	  display-alignment: 'start
 	  space-before: niceheader-rule-spacebefore
 	  space-after: niceheader-rule-spaceafter
 	  line-thickness: 0.5pt)))))
 
       (element authorgroup
         (empty-sosofo))
 
       ]]>
 
       <!-- Print only ................................................... --> 
 
       <![ %output.print; [
 
       (define minimal-section-labels #f)
       (define max-section-level-labels
         (if minimal-section-labels 3 10))
 
       (define ($section-title$)
         (let* ((sect (current-node))
       	       (info (info-element))
 	       (exp-children (if (node-list-empty? info)
 		 	         (empty-node-list)
 			         (expand-children (children info) 
 					          (list (normalize "bookbiblio") 
 						        (normalize "bibliomisc")
 						        (normalize "biblioset")))))
 	       (parent-titles (select-elements (children sect) (normalize "title")))
   	       (info-titles   (select-elements exp-children (normalize "title")))
 	       (titles        (if (node-list-empty? parent-titles)
 		   	          info-titles
 			          parent-titles))
 	       (subtitles     (select-elements exp-children (normalize "subtitle")))
 	       (renderas (inherited-attribute-string (normalize "renderas") sect))
 	       (hlevel                          ;; the apparent section level;
 	        (if renderas                    ;; if not real section level,
   	            (string->number             ;;   then get the apparent level
 	             (substring renderas 4 5))  ;;   from "renderas",
 	            (SECTLEVEL)))               ;; else use the real level
 	       (hs (HSIZE (- 4 hlevel))))
 
           (make sequence
             (make paragraph
  	      font-family-name: %title-font-family%
 	      font-weight:  (if (< hlevel 5) 'bold 'medium)
 	      font-posture: (if (< hlevel 5) 'upright 'italic)
 	      font-size: hs
 	      line-spacing: (* hs %line-spacing-factor%)
 	      space-before: (* hs %head-before-factor%)
 	      space-after: (if (node-list-empty? subtitles)
 	    	  	       (* hs %head-after-factor%)
 	 	  	       0pt)
 	      start-indent: (if (or (>= hlevel 3)
 			            (member (gi) (list (normalize "refsynopsisdiv") 
 					    	       (normalize "refsect1") 
 						       (normalize "refsect2") 
 						       (normalize "refsect3"))))
 	 		        %body-start-indent%
 			        0pt)
 	      first-line-start-indent: 0pt
 	      quadding: %section-title-quadding%
 	      keep-with-next?: #t
 	      heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
   	      ;; SimpleSects are never AUTO numbered...they aren't hierarchical
 	      (if (> hlevel (- max-section-level-labels 1))
 	          (empty-sosofo)
 	          (if (string=? (element-label (current-node)) "")
 	  	      (empty-sosofo)
 		      (literal (element-label (current-node)) 
 			       (gentext-label-title-sep (gi sect)))))
 	      (element-title-sosofo (current-node)))
             (with-mode section-title-mode
 	      (process-node-list subtitles))
             ($section-info$ info))))
 
       ]]>
 
       <!-- Both sets of stylesheets ..................................... -->
 
       (define (local-en-label-title-sep)
         (list
           (list (normalize "warning")		": ")
 	  (list (normalize "caution")		": ")
           (list (normalize "chapter")           "  ")
           (list (normalize "sect1")             "  ")
           (list (normalize "sect2")             "  ")
           (list (normalize "sect3")             "  ")
           (list (normalize "sect4")             "  ")
           (list (normalize "sect5")             "  ")
           ))
 
     </style-specification-body>
   </style-specification>
     
   <external-specification id="docbook" document="freebsd.dsl">
 </style-sheet>