--- a/DataSetColumn.st	Wed Jan 23 01:17:18 2008 +0100
+++ b/DataSetColumn.st	Sun Jan 27 16:58:23 2008 +0100
@@ -907,22 +907,23 @@
 !DataSetColumn methodsFor:'private'!
 
 extractColFromRow:aRow rowNr:rowNr
-    |readSelector col|
+    |readSelector col numArgs|
 
     readSelector := description readSelector.
     readSelector isNil ifTrue:[^ nil].
 
     readSelector isBlock ifTrue:[
-        readSelector numArgs == 0 ifTrue:[
+        numArgs := readSelector numArgs.
+        numArgs == 0 ifTrue:[
             ^ readSelector value
         ].
-        readSelector numArgs == 1 ifTrue:[
+        numArgs == 1 ifTrue:[
             ^ readSelector value:aRow
         ].
-        readSelector numArgs == 2 ifTrue:[
+        numArgs == 2 ifTrue:[
             ^ readSelector value:aRow value:columnNumber
         ].
-        readSelector numArgs == 3 ifTrue:[
+        numArgs == 3 ifTrue:[
             ^ readSelector value:aRow value:columnNumber value:rowNr
         ].
         ^ readSelector value:aRow value:columnNumber value:rowNr value:dataSet
@@ -1223,5 +1224,5 @@
 !DataSetColumn class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.111 2007-12-12 11:51:01 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.112 2008-01-27 15:58:23 cg Exp $'
 ! !