diff --git a/Content/Library/docsSrc/templates/partMembers.fsx b/Content/Library/docsSrc/templates/partMembers.fsx
index 2a44e44d..96ee582d 100644
--- a/Content/Library/docsSrc/templates/partMembers.fsx
+++ b/Content/Library/docsSrc/templates/partMembers.fsx
@@ -107,7 +107,7 @@ let commentBlock (c: Comment) =
         match s with
         | EmptyDefaultBlock -> []
         | NonEmptyDefaultBlock content -> [ div [ Class "comment-block" ] [ RawText content ] ]
-        | Section(name, content) -> [ h2 [] [ str name ]
+        | Section(name, content) -> [ h5 [] [ str name ] // h2 is obnoxiously large for this context, go with the smaller h5
                                       RawText content ]
 
     c.Sections
diff --git a/Content/Library/src/MyLib.1/Library.fs b/Content/Library/src/MyLib.1/Library.fs
index d34e5d41..057ce786 100755
--- a/Content/Library/src/MyLib.1/Library.fs
+++ b/Content/Library/src/MyLib.1/Library.fs
@@ -32,16 +32,16 @@ module Say =
             (person.DateOfBirth.ToString("o"))
             person.FavoriteNumber
 
-    /// ## Description
+    /// #### Description
     /// I do nothing, ever.
     ///
-    /// ## Parameters
+    /// #### Parameters
     ///   * `name` - parameter of type `'a`
     ///
-    /// ## Output Type
+    /// #### Output Type
     ///   * `unit`
     ///
-    /// ## Exceptions
+    /// #### Exceptions
     /// None
     let nothing name =
         name |> ignore