summaryrefslogtreecommitdiff
path: root/src/bundles-containers.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/bundles-containers.adb')
-rw-r--r--src/bundles-containers.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/bundles-containers.adb b/src/bundles-containers.adb
index a027727..d1b1130 100644
--- a/src/bundles-containers.adb
+++ b/src/bundles-containers.adb
@@ -40,7 +40,7 @@ package body Bundles.Containers is
if Current_Prefs (Given_Prefs.Preference_Range'First) /=
Candidates.No_Candidate
then
- Result (Candidate_Range (Current_Prefs (Given_Prefs.Preference_Range'First))).Reference
+ Result (Current_Prefs (Given_Prefs.Preference_Range'First)).Reference
(1).Papers.Append (Current_Prefs);
end if;
end if;