--- a/DataSetBuilder.st	Sun Sep 08 15:59:47 2019 +0200
+++ b/DataSetBuilder.st	Sun Sep 08 16:04:31 2019 +0200
@@ -3246,7 +3246,7 @@
         ) ifTrue:[
             |numArgs bcode keys|
             bcode   := sel asString.
-            numArgs    := sel numArgs.
+            numArgs := sel argumentCount.
 
             numArgs ~~ 0 ifTrue:[
                 numArgs == 1 ifTrue:[
@@ -3287,7 +3287,7 @@
                 |selName|
                 selName := sel asString.
 
-                sel numArgs == 0 
+                sel argumentCount == 0 
                     ifTrue: [bCode := selName, code] 
                     ifFalse:[bCode := selName, 'anIndex\', code].
                 aColumn rendererType == #CheckToggle 
@@ -3394,21 +3394,15 @@
             , '    "set value"\'
             .
 
-    columns do:
-    [:aColumn|
+    columns do:[:aColumn|
         ((sel := aColumn writeSelector) notNil
-         and:[aColumn editorType ~~ #None
-         and:[aColumn canSelect
-         and:[(aClass includesSelector:sel) not]]]) 
-        ifTrue:
-        [
-            sel numArgs == 1 
-            ifTrue:
-            [
+          and:[aColumn editorType ~~ #None
+          and:[aColumn canSelect
+          and:[(aClass includesSelector:sel) not]]]
+        ) ifTrue: [
+            sel argumentCount == 1 ifTrue:[
                 bCode := sel asString
-            ] 
-            ifFalse:
-            [
+            ] ifFalse:[
                 sz := sel indexOf:$:.
                 bCode := sel copyTo:sz.
                 bCode := bCode, 'anIndex ', (sel copyFrom:sz + 1)