--- a/ChangeSet.st	Wed Jul 23 14:16:56 2008 +0200
+++ b/ChangeSet.st	Tue Jul 29 20:55:02 2008 +0200
@@ -481,7 +481,7 @@
                     tree == #Error ifTrue:[
                         change := DoItChange new.
                         change source:chunk.
-                        aBlock value:change value:lineNumber value:pos.
+                        aBlock valueWithOptionalArgument:change and:lineNumber and:pos.
                     ] ifFalse:[    
                         "/ if there is any nameSpace directive in there, extract it.
                         ((ns := parser currentNameSpace) notNil 
@@ -515,7 +515,7 @@
                                         ) ifFalse:[
                                             change := DoItChange new.
                                             change source:chunk.
-                                            aBlock value:change value:lineNumber value:pos.
+                                            aBlock valueWithOptionalArgument:change and:lineNumber and:pos.
                                         ]
                                     ] ifFalse:[
                                         self error:'unexpected change-chunk' mayProceed:true.
@@ -1505,7 +1505,29 @@
 !ChangeSet::ChangeFileReader methodsFor:'helpers'!
 
 addChange:change
-    changeAction value:change value:lineNumber value:position.
+    changeAction 
+        valueWithOptionalArgument:change 
+        and:lineNumber 
+        and:position.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 !
 
 checkReceiverIsGlobalNamed:expectedName
@@ -2305,5 +2327,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.152 2007-11-29 10:21:15 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.153 2008-07-29 18:55:02 cg Exp $'
 ! !