diff --git a/share/sgml/freebsd.dsl b/share/sgml/freebsd.dsl
index 60eb498b99..ed598767a9 100644
--- a/share/sgml/freebsd.dsl
+++ b/share/sgml/freebsd.dsl
@@ -57,7 +57,10 @@
 
       ]]>
 
-      <!-- Both sets of stylesheets .................................... -->
+      <!-- Both sets of stylesheets ..................................... -->
+
+      (define %section-autolabel%
+        #t)
 
       (define %may-format-variablelist-as-table%
         #f)
@@ -121,9 +124,35 @@
       (element maketarget ($mono-seq$))
       (element makevar ($mono-seq$))
 
-      <!-- FAQList can wait. I've been drinking, and a brief glance at
-           /usr/local/share/sgml/docbook/dsssl/modular/html/dblist.dsl is
-           enough to bring me out in cold, Lisp induced sweats. . . -->
+      <!-- QAndASet ..................................................... -->
+
+      <!-- Default to labelling Q/A with Q: and A: -->
+
+      (define (qanda-defaultlabel)
+        (normalize "qanda"))
+
+      <!-- For the HTML version, display the questions in a bigger, bolder
+           font. -->
+
+      <![ %output.html [
+      (element question
+        (let* ((chlist   (children (current-node)))
+               (firstch  (node-list-first chlist))
+               (restch   (node-list-rest chlist)))
+               (make element gi: "DIV"
+                     attributes: (list (list "CLASS" (gi)))
+                     (make element gi: "P" 
+                           (make element gi: "BIG"
+                                 (make element gi: "A"
+                                       attributes: (list
+                                                   (list "NAME" (element-id)))
+                                       (empty-sosofo))
+                                 (make element gi: "B"
+                                       (literal (question-answer-label
+                                                (current-node)) " ")
+                                       (process-node-list (children firstch)))))
+                    (process-node-list restch))))
+      ]]>
 
     </style-specification-body>
   </style-specification>