1 files changed, 0 insertions, 10 deletions
diff --git a/src/bundles.adb b/src/bundles.adb
index d0234a1..af11f37 100644
--- a/src/bundles.adb
+++ b/src/bundles.adb
@@ -11,16 +11,6 @@
 package body Bundles is
 
 
-    procedure Add
-           (To   : in out Bundle;
-            Item : in     Given_Prefs.Preference_Array) is
-    begin
-        To.Papers.Append (Item);
-    end Add;
-
-
-
-
     procedure Transfer
            (This     : in out Bundle;
             From, To : in     Candidates.CandidateID;