diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index 45d23608c..c0c230b45 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -51,6 +51,8 @@ our @EXPORT = qw(
 		 progress_message_nocompress
 		 progress_message2
 		 progress_message3
+		 read_action_param
+		 set_action_param
                 );
 
 our @EXPORT_OK = qw( $shorewall_dir initialize set_config_path shorewall);
@@ -101,7 +103,6 @@ our %EXPORT_TAGS = ( internal => [ qw( create_temp_script
 				       push_action_params
 				       pop_action_params
 				       default_action_params
-				       read_action_param
 				       read_a_line
 				       validate_level
 				       which
@@ -1824,7 +1825,14 @@ sub read_action_param( $ ) {
     my $i = shift;
 
     fatal_error "Parameter numbers must be numeric" unless $i =~ /^\d+$/;
-    $actparams{$i};
+    $actparms{$i};
+}
+
+sub set_action_param( $$ ) {
+    my $i = shift;
+
+    fatal_error "Parameter numbers must be numeric" unless $i =~ /^\d+$/;
+    $actparms{$i} = shift;
 }
 
 #