--- a/ArrowButton.st	Thu May 24 11:33:08 2018 +0200
+++ b/ArrowButton.st	Thu May 24 14:31:23 2018 +0200
@@ -349,7 +349,7 @@
 
 !ArrowButton class methodsFor:'defaults-helpers'!
 
-activeArrowButtonFormForStyle:styleSymbol direction:direction on:aDevice
+activeArrowButtonFormForStyle:styleSymbol direction:direction on:aDevice 
     <resource: #style (
                        #'arrowButton.activeDownForm'
                        #'arrowButton.activeUpForm'
@@ -361,7 +361,6 @@
                        #'arrowButton.activeLeftFormFile'
                        #'arrowButton.activeRightFormFile'   
                       )>
-
     |formVariableName styleSheetName styleSheetFileName|
 
     direction = #left ifTrue:[
@@ -385,14 +384,17 @@
         styleSheetFileName := #'arrowButton.activeDownFormFile'.
     ].
     formVariableName isNil ifTrue:[
-        self error:'invalid direction' mayProceed:true.
+        self proceedableError:'invalid direction'.
         ^ nil
     ].
-
-    ^ self
-        arrowButtonFormForStyle:styleSymbol 
-        nameKey:styleSheetName fileNameKey:styleSheetFileName variableName:formVariableName 
-        direction:direction useDefault:false on:aDevice
+    ^ self 
+        arrowButtonFormForStyle:styleSymbol
+        nameKey:styleSheetName
+        fileNameKey:styleSheetFileName
+        variableName:formVariableName
+        direction:direction
+        useDefault:false
+        on:aDevice
 !
 
 arrowButtonFormForStyle:styleSymbol direction:direction on:aDevice