--- a/ChangesBrowser.st	Tue Jan 14 18:29:05 1997 +0100
+++ b/ChangesBrowser.st	Tue Jan 14 19:40:06 1997 +0100
@@ -933,7 +933,8 @@
      - since parsing ascii methods is slow, keep result cached in 
        changeClassNames for the next query"
 
-    |chunk aParseTree recTree sel name arg1Tree isMeta prevMethodDefNr|
+    |chunk aParseTree recTree sel name arg1Tree isMeta prevMethodDefNr
+     words|
 
     changeNr isNil ifTrue:[^ nil].
 
@@ -954,7 +955,18 @@
     chunk := changeChunks at:prevMethodDefNr.
     chunk isNil ifTrue:[^ nil].       "mhmh - empty"
 
-    "/ fix it
+    (chunk startsWith:'''---') ifTrue:[
+        words := chunk asCollectionOfWords.
+        words size > 2 ifTrue:[
+            (words at:2) = 'checkin' ifTrue:[
+                name := words at:3.
+                changeClassNames at:changeNr put:name.
+                ^ name
+            ]
+        ].
+    ].
+
+    "/ fix it - otherwise, it cannot be parsed
     (chunk endsWith:'primitiveDefinitions:') ifTrue:[
         chunk := chunk , ''''''
     ].
@@ -1081,7 +1093,7 @@
     ].
     ^ nil
 
-    "Modified: 9.1.1997 / 12:41:11 / cg"
+    "Modified: 14.2.1997 / 19:37:18 / cg"
 !
 
 makeChangeAPatch:changeNr
@@ -2343,5 +2355,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.97 1997-01-09 11:42:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.98 1997-01-14 18:40:06 cg Exp $'
 ! !