--- a/QScintilla/Lexers/LexerTCL.py	Sat Mar 12 13:47:25 2011 +0100
+++ b/QScintilla/Lexers/LexerTCL.py	Sat Mar 12 17:42:26 2011 +0100
@@ -37,6 +37,10 @@
             self.setFoldCompact(Preferences.getEditor("AllFoldCompact"))
         except AttributeError:
             pass
+        try:
+            self.setFoldComments(Preferences.getEditor("TclFoldComment"))
+        except AttributeError:
+            pass
     
     def isCommentStyle(self, style):
         """