diff --git a/doc/src/sgml/stylesheet.dsl b/doc/src/sgml/stylesheet.dsl
new file mode 100644
index 637758f..2c18dab
*** a/doc/src/sgml/stylesheet.dsl
--- b/doc/src/sgml/stylesheet.dsl
***************
*** 284,290 ****
  
  ;; Customization of header, add title attributes (overrides
  ;; dbcommon.dsl)
! (define (default-header-nav-tbl-ff elemnode prev next prevsib nextsib)
    (let* ((r1? (nav-banner? elemnode))
  	 (r1-sosofo (make element gi: "TR"
  			  (make element gi: "TH"
--- 284,290 ----
  
  ;; Customization of header, add title attributes (overrides
  ;; dbcommon.dsl)
! (define (default-header-nav-tbl-ff elemnode prev next)
    (let* ((r1? (nav-banner? elemnode))
  	 (r1-sosofo (make element gi: "TR"
  			  (make element gi: "TH"
***************
*** 298,305 ****
  				      (nav-banner elemnode)))))
  	 (r2? (or (not (node-list-empty? prev))
  		  (not (node-list-empty? next))
- 		  (not (node-list-empty? prevsib))
- 		  (not (node-list-empty? nextsib))
  		  (nav-context? elemnode)))
  	 (r2-sosofo (make element gi: "TR"
  			  (make element gi: "TD"
--- 298,303 ----
***************
*** 323,337 ****
  					     (list "WIDTH" "10%")
  					     (list "ALIGN" "left")
  					     (list "VALIGN" "top"))
! 				(if (node-list-empty? prevsib)
! 				    (make entity-ref name: "nbsp")
! 				    (make element gi: "A"
! 					  attributes: (list
! 						       (list "TITLE" (element-title-string prevsib))
! 						       (list "HREF"
! 							     (href-to
! 							      prevsib)))
! 					  (gentext-nav-prev-sibling prevsib))))
  			  (make element gi: "TD"
  				attributes: (list
  					     (list "WIDTH" "60%")
--- 321,329 ----
  					     (list "WIDTH" "10%")
  					     (list "ALIGN" "left")
  					     (list "VALIGN" "top"))
! 				(if (nav-up? elemnode)
! 				    (nav-up elemnode)
! 				    (nav-home-link elemnode)))
  			  (make element gi: "TD"
  				attributes: (list
  					     (list "WIDTH" "60%")
***************
*** 340,360 ****
  				(nav-context elemnode))
  			  (make element gi: "TD"
  				attributes: (list
! 					     (list "WIDTH" "10%")
! 					     (list "ALIGN" "right")
! 					     (list "VALIGN" "top"))
! 				(if (node-list-empty? nextsib)
! 				    (make entity-ref name: "nbsp")
! 				    (make element gi: "A"
! 					  attributes: (list
! 						       (list "TITLE" (element-title-string nextsib))
! 						       (list "HREF"
! 							     (href-to
! 							      nextsib)))
! 					  (gentext-nav-next-sibling nextsib))))
! 			  (make element gi: "TD"
! 				attributes: (list
! 					     (list "WIDTH" "10%")
  					     (list "ALIGN" "right")
  					     (list "VALIGN" "top"))
  				(if (node-list-empty? next)
--- 332,338 ----
  				(nav-context elemnode))
  			  (make element gi: "TD"
  				attributes: (list
! 					     (list "WIDTH" "20%")
  					     (list "ALIGN" "right")
  					     (list "VALIGN" "top"))
  				(if (node-list-empty? next)