--- a/Method.st	Sat Jun 21 12:46:07 2003 +0200
+++ b/Method.st	Sat Jun 21 12:47:55 2003 +0200
@@ -2412,7 +2412,7 @@
 previousVersions
     "return a collection of the receivers previous versions (sources)"
 
-    |sel cls versions lastChange firstSrc|
+    |sel cls versions lastChange firstSrc last|
 
     sel := self selector.
     sel isNil ifTrue:[^ #()].
@@ -2433,14 +2433,17 @@
     ].
 
     lastChange notNil ifTrue:[
-        firstSrc := lastChange previousVersion source.
-        (firstSrc size > 0
-        and:[ firstSrc ~= lastChange source]) ifTrue:[
-            versions addFirst:(MethodChange 
-                                className:lastChange className 
-                                selector:lastChange selector
-                                source:firstSrc
-                                category:lastChange category).
+        last := lastChange previousVersion.
+        last notNil ifTrue:[
+            firstSrc := last source.
+            (firstSrc size > 0
+            and:[ firstSrc ~= lastChange source]) ifTrue:[
+                versions addFirst:(MethodChange 
+                                    className:lastChange className 
+                                    selector:lastChange selector
+                                    source:firstSrc
+                                    category:lastChange category).
+            ]
         ]
     ].
     ^ versions
@@ -2888,7 +2891,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.255 2003-06-03 16:24:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.256 2003-06-21 10:47:55 cg Exp $'
 ! !
 
 Method initialize!