--- a/BrowserView.st	Wed Feb 16 09:50:12 2000 +0100
+++ b/BrowserView.st	Wed Feb 16 11:40:16 2000 +0100
@@ -2954,6 +2954,15 @@
     ClassHistory removeAll
 !
 
+loadFromMessage:aMessageString
+    "switch to the class and selector specified by aMessage,
+     which has the form: '<className> {class} <selector>'
+     Backward compatibility - should no longer be used."
+
+    self switchBackToMessageNamed:aMessageString
+
+!
+
 switchBackToMessageNamed: aMessage
     "switch to the class and selector specified by aMessage,
      which has the form: '<className> {class} <selector>'"
@@ -14020,6 +14029,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.604 2000-02-15 09:09:49 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.605 2000-02-16 10:40:16 cg Exp $'
 ! !
 BrowserView initialize!