diff --git a/Shorewall/compiler b/Shorewall/compiler
index 5c259de64..3fe3e351c 100755
--- a/Shorewall/compiler
+++ b/Shorewall/compiler
@@ -3078,14 +3078,6 @@ process_tos() # $1 = name of tos file
     fi
 }
 
-#
-# Display elements of a list with leading white space
-#
-display_list() # $1 = List Title, rest of $* = list to display
-{
-    [ $# -gt 1 ] && echo "   $*"
-}
-
 policy_rules() # $1 = chain to add rules to
 	       # $2 = policy
 	       # $3 = loglevel
diff --git a/Shorewall/firewall b/Shorewall/firewall
index 305277185..7fb17c94f 100755
--- a/Shorewall/firewall
+++ b/Shorewall/firewall
@@ -503,14 +503,6 @@ delete_nat() {
     [ -d ${VARDIR} ] && touch ${VARDIR}/nat
 }
 
-#
-# Display elements of a list with leading white space
-#
-display_list() # $1 = List Title, rest of $* = list to display
-{
-    [ $# -gt 1 ] && echo "   $*"
-}
-
 #
 # Verify that kernel has netfilter support
 #
diff --git a/Shorewall/lib.base b/Shorewall/lib.base
index 857ad2fdd..00ffd2cc5 100644
--- a/Shorewall/lib.base
+++ b/Shorewall/lib.base
@@ -374,6 +374,14 @@ combine_list()
     echo $o
 }
 
+#
+# Display elements of a list with leading white space
+#
+display_list() # $1 = List Title, rest of $* = list to display
+{
+    [ $# -gt 1 ] && echo "   $*"
+}
+
 #
 # Determine if a chain is a policy chain
 #