diff --git a/CHANGES b/CHANGES
index 53332bb9..7035f8ed 100644
--- a/CHANGES
+++ b/CHANGES
@@ -32,7 +32,8 @@ ask CVS about it:
   Program sensors: Add ADM1032 support
   Program sensors-detect: Prefer Super I/O drivers;
                           Fix W83627HF and W83791D detection; detect CSB6;
-                          Detect ADM1029,30,31,32
+                          Detect ADM1029,30,31,32;
+                          Detect W83637HF, W83697UF
 
 
 2.8.1 (20031005)
diff --git a/prog/detect/sensors-detect b/prog/detect/sensors-detect
index 96356db3..e8d9faaa 100755
--- a/prog/detect/sensors-detect
+++ b/prog/detect/sensors-detect
@@ -52,8 +52,9 @@ use vars qw(@pci_adapters @chip_ids @superio_ids @undetectable_adapters @dmideco
 # adapters should be present.
 # Each entry must have a vendid (Vendor ID), devid (Device ID), func (PCI
 # Function) and procid (string as appears in /proc/pci; see linux/driver/pci,
-# either pci.c or oldproc.c). If no driver is written yet, omit the 
-# driver (Driver Name) field. The match (Match Description) field should
+# either pci.c or oldproc.c). If no driver is written yet, set the 
+# driver (Driver Name) field to "to-be-written".
+# The match (Match Description) field should
 # contain a function which returns zero if its two parameter matches
 # the text as it would appear in /proc/bus/i2c.
 @pci_adapters = ( 
@@ -790,8 +791,8 @@ use subs qw(mtp008_detect lm78_detect lm78_isa_detect lm78_alias_detect
 # This is a list of all recognized chips. 
 # Each entry must have the following fields:
 #  name: The full chip name
-#  driver: The driver name (without .o extension). Put in something like
-#      "Unwritten: <drivername>" if it is not yet available.
+#  driver: The driver name (without .o extension). Put in exactly
+#      "to-be-written" if it is not yet available.
 #  i2c_addrs (optional): For I2C chips, the range of valid I2C addresses to
 #      probe. Recommend avoiding 0x69 because of clock chips.
 #  i2c_driver_addrs (optional): For I2C chips, the range of valid I2C
@@ -1409,6 +1410,22 @@ use subs qw(mtp008_detect lm78_detect lm78_isa_detect lm78_alias_detect
 	basereg => 0x60,
 	exit => 0xaa,
      }, 
+     {
+	name => "Winbond W83637HF Super IO Sensors",
+	driver => "to-be-written",
+	addrreg => 0x2e,
+	exitreg => 0x2e,
+	datareg => 0x2f,
+	enter => [0x87, 0x87],
+	devidreg => 0x20,
+	devid => 0x70,
+	logdevreg => 0x07,
+	logdev => 0x0b,
+	actreg => 0x30,
+	actmask => 0x01,
+	basereg => 0x60,
+	exit => 0xaa,
+     }, 
      {
 	name => "Winbond W83697HF Super IO Sensors",
 	driver => "w83627hf",
@@ -1425,6 +1442,22 @@ use subs qw(mtp008_detect lm78_detect lm78_isa_detect lm78_alias_detect
 	basereg => 0x60,
 	exit => 0xaa,
      }, 
+     {
+	name => "Winbond W83697UF Super IO PWM",
+	driver => "to-be-written",
+	addrreg => 0x2e,
+	exitreg => 0x2e,
+	datareg => 0x2f,
+	enter => [0x87, 0x87],
+	devidreg => 0x20,
+	devid => 0x68,
+	logdevreg => 0x07,
+	logdev => 0x0b,
+	actreg => 0x30,
+	actmask => 0x01,
+	basereg => 0x60,
+	exit => 0xaa,
+     }, 
 );
 
 #######################