--- a/SmallSense__CriticsWindow.st	Mon Mar 02 15:50:49 2015 +0100
+++ b/SmallSense__CriticsWindow.st	Mon Mar 02 15:55:50 2015 +0100
@@ -359,7 +359,14 @@
 generateHTMLForRule: rule on: stream
     | fixes |    
 
-     stream 
+    rule isComposite ifTrue:[ 
+        rule flatten 
+            do:[:each | self generateHTMLForRule: each on: stream. ]
+            separatedBy:[ stream nextPutLine: '<hr>' ].
+        ^ self.
+    ].
+
+    stream 
         nextPutAll: rule name; 
         nextPutAll:'<P>';  
         nextPutLine: rule rationale.
@@ -413,13 +420,7 @@
 
         html := 
             String streamContents:[:s|
-                rule isComposite ifFalse:[ 
-                    self generateHTMLForRule: rule on: s.
-                ] ifTrue:[ 
-                    rule flatten 
-                        do:[:each | self generateHTMLForRule: each on: s. ]
-                        separatedBy:[ s nextPutLine: '<hr>' ]
-                ]
+                self generateHTMLForRule: rule on: s.
             ].
     ].
 
@@ -493,11 +494,11 @@
 !CriticsWindow class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/smallsense/SmallSense__CriticsWindow.st,v 1.4 2015-03-02 14:50:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/smallsense/SmallSense__CriticsWindow.st,v 1.5 2015-03-02 14:55:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/smallsense/SmallSense__CriticsWindow.st,v 1.4 2015-03-02 14:50:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/smallsense/SmallSense__CriticsWindow.st,v 1.5 2015-03-02 14:55:50 cg Exp $'
 !
 
 version_HG
@@ -506,6 +507,6 @@
 !
 
 version_SVN
-    ^ '$Id: SmallSense__CriticsWindow.st,v 1.4 2015-03-02 14:50:49 cg Exp $'
+    ^ '$Id: SmallSense__CriticsWindow.st,v 1.5 2015-03-02 14:55:50 cg Exp $'
 ! !