--- a/BrowserView.st	Mon Jun 02 11:10:33 2003 +0200
+++ b/BrowserView.st	Mon Jun 02 11:57:54 2003 +0200
@@ -10207,7 +10207,7 @@
 
     self checkMethodSelected ifFalse:[^ self].
 
-    prev := currentMethod previousVersion source.
+    prev := currentMethod previousVersion.
     prev isNil ifTrue:[
         self warn:'oops - previous version is gone'.
         ^ self
@@ -14650,7 +14650,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.759 2003-06-02 09:10:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.760 2003-06-02 09:57:54 cg Exp $'
 ! !
 
 BrowserView initialize!