--- a/BrowserView.st	Thu Apr 24 11:47:15 2003 +0200
+++ b/BrowserView.st	Thu Apr 24 11:48:08 2003 +0200
@@ -12453,7 +12453,7 @@
 
 currentMethodsPreviousVersionCode
     currentMethod isNil ifTrue:[^ nil].
-    ^ currentMethod previousVersion source
+    ^ currentMethod previousVersionCode
 !
 
 enterBoxForCodeSelectionTitle:title okText:okText
@@ -14650,7 +14650,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.756 2003-04-23 11:37:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.757 2003-04-24 09:48:08 penk Exp $'
 ! !
 
 BrowserView initialize!