diff --git a/R/navs-legacy.R b/R/navs-legacy.R
index a4239e663..381bb45ef 100644
--- a/R/navs-legacy.R
+++ b/R/navs-legacy.R
@@ -584,6 +584,7 @@ buildDropdown <- function(divTag, tabset) {
 
   dropdown <- tags$li(
     class = "dropdown",
+    class = if (active) "active",
     tags$a(
       href = "#",
       class = "dropdown-toggle",