diff --git a/utils/fpdoc/dw_chm.pp b/utils/fpdoc/dw_chm.pp
index 6cef64819e..632665f1ac 100644
--- a/utils/fpdoc/dw_chm.pp
+++ b/utils/fpdoc/dw_chm.pp
@@ -428,6 +428,7 @@ begin
   
   if ETypeName[1] = 'f' then Exit(cmtFunction);
   if ETypeName[1] = 'c' then Exit(cmtConstructor);
+  if ETypeName[1] = 'd' then Exit(cmtDestructor);
   if ETypeName[1] = 'v' then Exit(cmtVariable);
   if ETypeName[1] = 'i' then Exit(cmtInterface);
   // the p's