diff --git a/src/ce_d2syn.pas b/src/ce_d2syn.pas
index 66bcc20e..5a6c94c6 100644
--- a/src/ce_d2syn.pas
+++ b/src/ce_d2syn.pas
@@ -476,6 +476,18 @@ begin
     if readDelim(reader, fTokStop, '/') then
       fTokKind := tkDDocs;
     readLine(reader, fTokStop);
+
+    if fTokStop - fTokStart > 4 then
+    begin
+      Dec(reader,4);
+      Dec(fTokStop,4);
+      if reader = '---+'#10 then
+        StartCodeFoldBlock(nil)
+      else if reader = '----'#10 then
+        EndCodeFoldBlock();
+      readLine(reader, fTokStop);
+    end;
+
     exit;
   end else readerReset;