--- a/BrowserView.st	Sun Nov 10 18:16:24 1996 +0100
+++ b/BrowserView.st	Mon Nov 11 10:00:59 1996 +0100
@@ -3075,7 +3075,7 @@
     "show current classes revision info in codeView"
 
     self doClassMenu:[:currentClass |
-        |aStream info info2 s rv mgr|
+        |aStream info info2 s rv mgr fn msg|
 
         aStream := WriteStream on:(String new:200).
         currentClass notNil ifTrue:[
@@ -3125,6 +3125,14 @@
                     aStream nextPutLine:'No revision info found'.
                     currentClass isLoaded ifFalse:[
                         aStream cr; nextPutAll:'This is an autoloaded class - you may see more after its loaded.'
+                    ] ifTrue:[
+                        currentClass wasAutoloaded ifTrue:[
+                            msg := 'This class was autoloaded.'.
+                            (fn := currentClass classFilename) notNil ifTrue:[
+                                msg := msg , ' (from ''' , fn , ''')'.
+                            ].
+                            aStream cr; nextPutAll:msg.
+                        ]
                     ]
                 ]
             ]
@@ -3142,7 +3150,7 @@
     ]
 
     "Created: 14.11.1995 / 16:43:15 / cg"
-    "Modified: 8.11.1996 / 23:53:06 / cg"
+    "Modified: 11.11.1996 / 09:59:25 / cg"
 !
 
 getLogMessageFor:aString
@@ -8435,6 +8443,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.214 1996-11-10 17:16:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.215 1996-11-11 09:00:59 cg Exp $'
 ! !
 BrowserView initialize!