--- a/ActiveHelpView.st	Mon Sep 16 12:56:13 2013 +0200
+++ b/ActiveHelpView.st	Mon Sep 16 12:56:18 2013 +0200
@@ -234,8 +234,8 @@
     |extent oldOrigin shapeForm borderForm y1 bw h w mirrorH mirrorV
      p1 p2 p3 pB1 pB2 pB3 offs hEll h2 w2 w8 w78 mousePosition|
 
-    device supportsArbitraryShapedViews ifTrue:[
-        (shapeStyle == #cartoon) ifTrue:[
+    (shapeStyle == #cartoon) ifTrue:[
+        device supportsArbitraryShapedViews ifTrue:[
             extent := self extent.
             oldOrigin := self origin.
             h := extent y.
@@ -372,10 +372,10 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.38 2013-09-12 13:17:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.39 2013-09-16 10:56:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.38 2013-09-12 13:17:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.39 2013-09-16 10:56:18 cg Exp $'
 ! !