--- a/MethodNode.st Mon Mar 18 14:37:04 2013 +0100
+++ b/MethodNode.st Mon Mar 18 14:38:01 2013 +0100
@@ -157,7 +157,7 @@
] ifFalse:[
parts := selector partsIfSelector.
parts with:arguments do:[:part :arg |
- aStream nextPutAll:part.
+ aStream nextPutAll:part; space.
aStream nextPutAll:arg name.
aStream space.
]
@@ -179,5 +179,6 @@
!MethodNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.12 2011-09-12 00:19:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.13 2013-03-18 13:38:01 cg Exp $'
! !
+