--- a/core/MetacelloVersionMethodSection.st	Tue Sep 18 13:11:39 2012 +0000
+++ b/core/MetacelloVersionMethodSection.st	Tue Sep 18 18:24:44 2012 +0000
@@ -17,20 +17,18 @@
 !
 
 attributeOrPath
-    ^ self parent == nil
-        ifTrue: [ 
-            self attributes size == 1
-                ifTrue: [ self attributes first ]
-                ifFalse: [ self attributes ] ]
-        ifFalse: [ self attributePath ]
+	| path |
+	^self parent == nil
+		ifTrue: [ self attribute ]
+		ifFalse: [ self parent attributePath , {(self attribute)} ]
 !
 
 attributePath
-    | path |
-    path := MetacelloMethodSectionPath with: self attributes.
-    ^ self parent == nil
-        ifTrue: [ path ]
-        ifFalse: [ self parent attributePath , path ]
+	| path |
+	path := {self attribute.}.
+	^self parent == nil
+		ifTrue: [ path ]
+		ifFalse: [ self parent attributePath , path ]
 !
 
 block