--- a/Tools_ClassChecker.st	Thu Feb 09 19:18:54 2006 +0100
+++ b/Tools_ClassChecker.st	Fri Feb 10 17:12:22 2006 +0100
@@ -121,6 +121,7 @@
 
 styleChecks
     self doCheck:#checkProtocols.
+"/    self doCheck:#guardingClause.
 !
 
 warningChecks
@@ -254,6 +255,14 @@
     ]
 !
 
+guardingClause
+    |detector|
+
+    detector := ParseTreeLintRule guardingClause.
+    detector runOnEnvironment: (Array with:checkedClass).
+self halt.
+!
+
 instanceVariablesNeverUsed
     self instanceVariablesNeverUsedIn:checkedClass theNonMetaclass.
 !
@@ -786,5 +795,5 @@
 !ClassChecker class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.5 2006-01-31 22:27:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.6 2006-02-10 16:12:22 cg Exp $'
 ! !