--- a/ChangesBrowser.st	Wed Mar 01 17:15:35 2000 +0100
+++ b/ChangesBrowser.st	Wed Mar 01 21:43:17 2000 +0100
@@ -1539,7 +1539,12 @@
                                         changePositions add:methodPos.
                                         changeTimeStamps add:timeStampInfo.
                                         changeIsFollowupMethodChange add:true.
-                                        editingClassSource := true.
+                                        (changeFileName asFilename hasSuffix:'.st') ifFalse:[
+                                            editingClassSource :=  (self confirm:'Multiple method chunks without individual ''methodsFor:'' encountered.
+Is this a class-file being browsed ?')
+                                        ] ifTrue:[
+                                            editingClassSource := true.
+                                        ]
                                     ].
 
                                     first := false.
@@ -3409,5 +3414,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.191 2000-02-14 12:02:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.192 2000-03-01 20:43:17 cg Exp $'
 ! !