1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 14f0c8c68..c8d94f082 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -103,6 +103,10 @@ sub readMonitorsDB {
 	@l == @fields or log::l("bad line $lineno ($_)"), next;
 
 	my %l; @l{@fields} = @l;
+	if ($monitors{$l{type}}) {
+	    my $i; for ($i = 0; $monitors{"$l{type} ($i)"}; $i++) {}
+	    $l{type} = "$l{type} ($i)";
+	}
 	$monitors{$l{type}} = \%l;
     }
     while (my ($k, $v) = each %standard_monitors) {