--- a/ArrowButton.st	Mon Feb 03 11:33:03 2014 +0100
+++ b/ArrowButton.st	Tue Feb 04 18:13:08 2014 +0100
@@ -603,9 +603,9 @@
                   2r00000000 2r00000000
                 ]
     ].
-    ^ (Form 
+    ^ Form 
         width:w height:h 
-        fromArray:bits) onDevice:aDevice
+        fromArray:bits onDevice:aDevice
 !
 
 defaultST80ArrowButtonFormForDirection:direction onDevice:aDevice
@@ -706,9 +706,9 @@
                  2r00000000 2r00000000
                 ]
     ].
-    ^ (Form 
+    ^ Form 
         width:w height:h 
-        fromArray:bits) onDevice:aDevice
+        fromArray:bits onDevice:aDevice
 
     "
      self defaultWIN32ArrowButtonFormForDirection:#down onDevice:Screen current
@@ -1054,5 +1054,6 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.72 2008-05-19 10:42:33 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.73 2014-02-04 17:13:08 stefan Exp $'
 ! !
+