diff --git a/dch-repeat b/dch-repeat
index 760dc04..157582e 100755
--- a/dch-repeat
+++ b/dch-repeat
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 #
-# Copyright (C) 2007-2008 Canonical, Ltd.
+# Copyright (C) 2007-2008 Canonical, Ltd.,
+#               2011,     Stefano Rivera <stefanor@ubuntu.com>
 # Author: Kees Cook <kees@ubuntu.com>
 #
 # ##################################################################
@@ -47,11 +48,11 @@ EOM
     exit(0);
 }
 
-my @releases = ('dapper', 'hardy', 'jaunty', 'karmic', 'lucid', 'maverick', 'natty');
+my @releases = undef;
+our $devel_release = undef;
 
 #Getopt::Long::Configure("bundling", "no_ignore_case");
 our $opt_build_tree = "/scratch/ubuntu/build";
-our $opt_devel_release = $releases[$#releases];
 our $opt_pocket = undef;
 our $opt_package = undef;
 our $opt_source_release = undef;
@@ -70,6 +71,10 @@ Usage() unless (GetOptions(
 ));
 Usage() if ($opt_help);
 
+@releases = split(/\s+/, `ubuntu-distro-info --supported`);
+$devel_release = `ubuntu-distro-info --devel`;
+chomp($devel_release);
+
 sub get_changelog($)
 {
     my ($path) = @_;
@@ -135,8 +140,8 @@ warn "package: '$opt_package\n" if ($opt_verbose);
 
 # By default, take changelog from newer release
 if (!defined($opt_source_release)) {
-    if ($opt_target_release eq $opt_devel_release) {
-        die "No more recent release than '$opt_devel_release' to take changelog from\n";
+    if ($opt_target_release eq $devel_release) {
+        die "No more recent release than '$devel_release' to take changelog from\n";
     }
     foreach my $i (0 .. $#releases) {
         if ($releases[$i] eq $opt_target_release) {
@@ -148,11 +153,11 @@ if (!defined($opt_source_release)) {
     }
 }
 warn "source-release: '$opt_source_release\n" if ($opt_verbose);
-warn "devel-release: '$opt_devel_release\n" if ($opt_verbose);
+warn "devel-release: '$devel_release\n" if ($opt_verbose);
 
 # By default, use "security" pocket for non-devel releases
 if (!defined($opt_pocket)) {
-    if ($opt_target_release eq $opt_devel_release) {
+    if ($opt_target_release eq $devel_release) {
         $opt_pocket = "";
     }
     else {
diff --git a/debian/changelog b/debian/changelog
index 5b5822a..59849d8 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -7,15 +7,16 @@ ubuntu-dev-tools (0.113) UNRELEASED; urgency=low
   [ Stefano Rivera ]
   * backportpackage: dput correct changes filename (regression in 0.112)
     (LP: #706010)
-  * bash_completion/pbuilder-dist: Use *-distro-info to determine pbuilder
-    file names.
+  * Use new *-distro-info in:
+    - bash_completion/pbuilder-dist: To determine pbuilder file names.
+    - dch-repeat.
   * pbuilder-dist: Use ubuntutools.logger.
   * pbuilder-dist-simple: Remove all mention of supporting Debian.
     (LP: #481223)
   * pull-debian-source: Rewritten in Python to take advantage of the new
     ubuntutools library functions.
 
- -- Stefano Rivera <stefanor@ubuntu.com>  Sat, 22 Jan 2011 20:55:57 +0200
+ -- Stefano Rivera <stefanor@ubuntu.com>  Sat, 22 Jan 2011 21:56:24 +0200
 
 ubuntu-dev-tools (0.112) unstable; urgency=low