--- a/ActiveHelpView.st	Thu Sep 12 11:30:17 2013 +0200
+++ b/ActiveHelpView.st	Thu Sep 12 15:17:56 2013 +0200
@@ -152,6 +152,9 @@
      Currently, only nil and #cartoon are supported"
 
     shapeStyle := aStyleSymbol.
+    Screen current supportsArbitraryShapedViews ifFalse:[
+        shapeStyle := nil
+    ].
     self resizeToFit.
     self computeShape.
 
@@ -369,10 +372,10 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.37 2013-09-11 14:03:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.38 2013-09-12 13:17:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.37 2013-09-11 14:03:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.38 2013-09-12 13:17:56 cg Exp $'
 ! !