diff --git a/src/polyorb-dynamic_dict.adb b/src/polyorb-dynamic_dict.adb
index 6aa5bb529..1f2904cd0 100644
--- a/src/polyorb-dynamic_dict.adb
+++ b/src/polyorb-dynamic_dict.adb
@@ -111,6 +111,16 @@ package body PolyORB.Dynamic_Dict is
       Insert (T, K, V);
    end Register;
 
+   -----------
+   -- Reset --
+   -----------
+
+   procedure Reset is
+   begin
+      Finalize (T);
+      Initialize (T);
+   end Reset;
+
    ----------------
    -- Unregister --
    ----------------
diff --git a/src/polyorb-dynamic_dict.ads b/src/polyorb-dynamic_dict.ads
index 85adaa2bb..90a6c962d 100644
--- a/src/polyorb-dynamic_dict.ads
+++ b/src/polyorb-dynamic_dict.ads
@@ -69,4 +69,7 @@ package PolyORB.Dynamic_Dict is
    --  As above, but Default is returned for non-registered keys,
    --  insted of raising an exception.
 
+   procedure Reset;
+   --  Remove all key associations.
+
 end PolyORB.Dynamic_Dict;
diff --git a/src/polyorb-parameters.adb b/src/polyorb-parameters.adb
index 1198df77a..5b59bf3b1 100644
--- a/src/polyorb-parameters.adb
+++ b/src/polyorb-parameters.adb
@@ -311,4 +311,10 @@ package body PolyORB.Parameters is
       PolyORB.Log.Get_Conf_Hook := Get_Conf'Access;
    end Set_Hooks;
 
+   -----------
+   -- Reset --
+   -----------
+
+   procedure Reset renames Variables.Reset;
+
 end PolyORB.Parameters;
diff --git a/src/polyorb-parameters.ads b/src/polyorb-parameters.ads
index dfe70b591..642f495c0 100644
--- a/src/polyorb-parameters.ads
+++ b/src/polyorb-parameters.ads
@@ -78,6 +78,9 @@ package PolyORB.Parameters is
 
    type Parameters_Initializer is access procedure;
 
+   procedure Reset;
+   --  Clear all variables previously positioned using Set_Conf.
+
 private
 
    function Get_Env