diff --git a/CHANGES b/CHANGES
index 1e834d5d..526b2589 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,6 +1,9 @@
 lm-sensors CHANGES file
 -----------------------
 
+SVN HEAD
+  sensors-detect: Add Texas Instruments TMP401 detection
+
 3.0.0-rc3 (2007-10-28)
   libsensors: Add a default configuration file
               Fix memory leaks on initialization error
diff --git a/prog/detect/sensors-detect b/prog/detect/sensors-detect
index 41f7ad64..6f035e65 100755
--- a/prog/detect/sensors-detect
+++ b/prog/detect/sensors-detect
@@ -1236,6 +1236,12 @@ use vars qw(@pci_adapters_sis5595 @pci_adapters_sis645 @pci_adapters_sis96x);
        i2c_addrs => [0x4c],
        i2c_detect => sub { lm90_detect(8, @_); },
      },
+     {
+       name => "Texas Instruments TMP401",
+       driver => "tmp401",
+       i2c_addrs => [0x4c],
+       i2c_detect => sub { lm90_detect(9, @_); },
+     },
      {
        name => "National Semiconductor LM63",
        driver => "lm63",
@@ -3905,7 +3911,7 @@ sub lm83_detect
 # $_[0]: Chip to detect
 #   (0 = LM90, 1=LM89/LM99, 2=LM86, 3=ADM1032, 4=MAX6657/MAX6658/MAX6659,
 #    5 = ADT7461, 6 = MAX6648/MAX6692, 7 = MAX6680/MAX6681,
-#    8 = W83L771W/G)
+#    8 = W83L771W/G), 9 = TI TMP401
 # $_[1]: A reference to the file descriptor to access this chip.
 # $_[2]: Address
 # Returns: undef if not detected, 4, 6 or 8 if detected.
@@ -3987,6 +3993,13 @@ sub lm90_detect
     return if $cid != 0x00;     # W83L771W/G
     return 6;
   }
+  if ($chip == 9) {
+    return if ($conf & 0x1B) != 0;
+    return if $rate > 0x0F;
+    return if $mid != 0x55;     # Texas Instruments
+    return if $cid != 0x11;     # TMP401
+    return 6;
+  }
   return;
 }