diff --git a/prog/detect/sensors-detect b/prog/detect/sensors-detect
index d60fd16b..8b4fd7a2 100755
--- a/prog/detect/sensors-detect
+++ b/prog/detect/sensors-detect
@@ -80,7 +80,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 3,
        procid => "Intel 82801AA ICH",
        driver => "i2c-i801",
-       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9a-f]{4}/ },
      } , 
      { 
        vendid => 0x8086,
@@ -88,7 +88,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 3,
        procid => "Intel 82801AB ICH0",
        driver => "i2c-i801",
-       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9a-f]{4}/ },
      } , 
      { 
        vendid => 0x8086,
@@ -96,7 +96,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 3,
        procid => "Intel 82801BA ICH2",
        driver => "i2c-i801",
-       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9a-f]{4}/ },
      } , 
      { 
        vendid => 0x8086,
@@ -104,7 +104,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 3,
        procid => "Intel 82801CA/CAM ICH3",
        driver => "i2c-i801",
-       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9a-f]{4}/ },
      } , 
      { 
        vendid => 0x8086,
@@ -112,7 +112,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 3,
        procid => "Intel 82801DB ICH4",
        driver => "i2c-i801",
-       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9a-f]{4}/ },
      } , 
      { 
        vendid => 0x8086,
@@ -120,7 +120,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 3,
        procid => "Intel 82801EB ICH5",
        driver => "i2c-i801",
-       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9a-f]{4}/ },
      } , 
      { 
        vendid => 0x8086,
@@ -128,7 +128,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 3,
        procid => "Intel 6300ESB",
        driver => "i2c-i801",
-       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9a-f]{4}/ },
      } , 
      { 
        vendid => 0x8086,
@@ -136,7 +136,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 3,
        procid => "Intel ICH6",
        driver => "i2c-i801",
-       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9a-f]{4}/ },
      } , 
      { 
        vendid => 0x1106,
@@ -240,7 +240,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 0,
        procid => "Silicon Integrated Systems SIS630",
        driver => "i2c-sis630",
-       match => sub { $_[0] =~ /^SMBus SIS630 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus SIS630 adapter at [0-9a-f]{4}/ },
      } ,
      {
        vendid => 0x1039,
@@ -248,7 +248,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 0,
        procid => "Silicon Integrated Systems SIS730",
        driver => "i2c-sis630",
-       match => sub { $_[0] =~ /^SMBus SIS630 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus SIS630 adapter at [0-9a-f]{4}/ },
      } ,
 #
 # Both Ali chips below have same PCI ID. Can't be helped. Only one should load.
@@ -291,7 +291,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 3,
        procid => "AMD-756 Athlon ACPI",
        driver => "i2c-amd756",
-       match => sub { $_[0] =~ /^SMBus AMD756 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus AMD756 adapter at [0-9a-f]{4}/ },
      },
      { 
        vendid => 0x1022,
@@ -299,7 +299,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 3,
        procid => "AMD-766 Athlon ACPI",
        driver => "i2c-amd756",
-       match => sub { $_[0] =~ /^SMBus AMD766 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus AMD766 adapter at [0-9a-f]{4}/ },
      },
      { 
        vendid => 0x1022,
@@ -307,7 +307,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 3,
        procid => "AMD-768 System Management",
        driver => "i2c-amd756",
-       match => sub { $_[0] =~ /^SMBus AMD768 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus AMD768 adapter at [0-9a-f]{4}/ },
      },
      { 
        vendid => 0x1022,
@@ -315,7 +315,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 3,
        procid => "AMD-8111 ACPI",
        driver => "i2c-amd756",
-       match => sub { $_[0] =~ /^SMBus AMD8111 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus AMD8111 adapter at [0-9a-f]{4}/ },
      },
      { 
        vendid => 0x1022,
@@ -323,7 +323,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 2,
        procid => "AMD-8111 SMBus 2.0",
        driver => "i2c-amd8111",
-       match => sub { $_[0] =~ /^SMBus2 AMD8111 adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus2 AMD8111 adapter at [0-9a-f]{4}/ },
      },
      {
        vendid => 0x102b,
@@ -635,7 +635,7 @@ use vars qw(@pci_adapters @chip_ids @superio_ids);
        func => 1,
        procid => "nVidia nForce SMBus",
        driver => "i2c-amd756",
-       match => sub { $_[0] =~ /^SMBus nVidia nForce adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus nVidia nForce adapter at [0-9a-f]{4}/ },
      } , 
      { 
        vendid => 0x10de,
@@ -780,7 +780,7 @@ use vars qw(@pci_adapters_sis5595 @pci_adapters_sis645 @pci_adapters_sis96x);
        func => 0,
        procid => "Silicon Integrated Systems SIS5595",
        driver => "i2c-sis5595",
-       match => sub {  $_[0] =~ /^SMBus SIS5595 adapter at [0-9,a-f]{4}/ },
+       match => sub {  $_[0] =~ /^SMBus SIS5595 adapter at [0-9a-f]{4}/ },
      } ,
 );
 
@@ -791,7 +791,7 @@ use vars qw(@pci_adapters_sis5595 @pci_adapters_sis645 @pci_adapters_sis96x);
        func => 0,
        procid => "Silicon Integrated Systems SIS5595",
        driver => "i2c-sis645",
-       match => sub {  $_[0] =~ /^SiS645 SMBus adapter at [0-9,a-f]{4}/ },
+       match => sub {  $_[0] =~ /^SiS645 SMBus adapter at [0-9a-f]{4}/ },
      } ,
      {
        vendid => 0x1039,
@@ -799,7 +799,7 @@ use vars qw(@pci_adapters_sis5595 @pci_adapters_sis645 @pci_adapters_sis96x);
        func => 1,
        procid => "Silicon Integrated Systems SMBus Controller",
        driver => "i2c-sis645",
-       match => sub { $_[0] =~ /^SiS645 SMBus adapter at 0x[0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SiS645 SMBus adapter at 0x[0-9a-f]{4}/ },
      } ,
      {
        vendid => 0x1039,
@@ -807,7 +807,7 @@ use vars qw(@pci_adapters_sis5595 @pci_adapters_sis645 @pci_adapters_sis96x);
        func => 0,
        procid => "Silicon Integrated Systems 85C503/5513 (LPC Bridge)",
        driver => "i2c-sis645",
-       match => sub { $_[0] =~ /^SiS645 SMBus adapter at 0x[0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SiS645 SMBus adapter at 0x[0-9a-f]{4}/ },
      } ,
 );
 
@@ -818,7 +818,7 @@ use vars qw(@pci_adapters_sis5595 @pci_adapters_sis645 @pci_adapters_sis96x);
        func => 1,
        procid => "Silicon Integrated Systems SMBus Controller",
        driver => "i2c-sis96x",
-       match => sub { $_[0] =~ /^SiS96x SMBus adapter at 0x[0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SiS96x SMBus adapter at 0x[0-9a-f]{4}/ },
      } ,
 );