--- a/ActiveHelpView.st	Wed Mar 28 14:52:22 2018 +0200
+++ b/ActiveHelpView.st	Mon Apr 16 17:04:10 2018 +0200
@@ -279,7 +279,7 @@
     |extent oldOrigin shapeForm borderForm y1 bw h w mirrorH mirrorV
      p1 p2 p3 pB1 pB2 pB3 offs hEll h2 w2 w8 w78 mousePosition graphicsDevice|
 
-    (shapeStyle == #cartoon) ifFalse:[
+    (shapeStyle ~~ #cartoon) ifTrue:[
         ^ self.
     ].
     graphicsDevice := device.
@@ -383,8 +383,8 @@
         self viewShape:shapeForm
     ].
 
-    "Modified: / 5.6.1999 / 21:41:01 / cg"
-    "Modified: / 27.10.1999 / 13:45:45 / stefan"
+    "Modified: / 05-06-1999 / 21:41:01 / cg"
+    "Modified: / 16-04-2018 / 11:43:55 / stefan"
 !
 
 resizeToFit