--- a/CBrowser.st	Mon Jul 06 17:14:53 1998 +0200
+++ b/CBrowser.st	Mon Jul 06 17:18:39 1998 +0200
@@ -1538,7 +1538,7 @@
                                 timeStampInfo := nil.
                             ] ifFalse:[
 
-                                |p cls|
+                                |p cls clsName|
 
                                 headerLine := chunkText , ' (doIt)'.
 
@@ -1620,6 +1620,11 @@
                                   #'primitiveVariables:'
                                  ) includes:sel) ifTrue:[
                                     changeType := '(class definition)'.
+                                    clsName := (p args at:1) evaluate.
+                                    cls := Smalltalk at:clsName ifAbsent:nil.
+                                    cls isNil ifTrue:[
+                                        changeDelta := '+'.
+                                    ]
                                 ].
                             ]
                         ] ifTrue:[ "sawExcla"
@@ -1774,7 +1779,7 @@
     self checkIfFileHasChanged
 
     "Modified: / 27.8.1995 / 23:06:55 / claus"
-    "Modified: / 6.7.1998 / 17:12:20 / cg"
+    "Modified: / 6.7.1998 / 17:17:24 / cg"
 !
 
 selectorOfMethodChange:changeNr
@@ -2850,5 +2855,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.139 1998-07-06 15:14:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.140 1998-07-06 15:18:39 cg Exp $'
 ! !

--- a/ChangesBrowser.st	Mon Jul 06 17:14:53 1998 +0200
+++ b/ChangesBrowser.st	Mon Jul 06 17:18:39 1998 +0200
@@ -1538,7 +1538,7 @@
                                 timeStampInfo := nil.
                             ] ifFalse:[
 
-                                |p cls|
+                                |p cls clsName|
 
                                 headerLine := chunkText , ' (doIt)'.
 
@@ -1620,6 +1620,11 @@
                                   #'primitiveVariables:'
                                  ) includes:sel) ifTrue:[
                                     changeType := '(class definition)'.
+                                    clsName := (p args at:1) evaluate.
+                                    cls := Smalltalk at:clsName ifAbsent:nil.
+                                    cls isNil ifTrue:[
+                                        changeDelta := '+'.
+                                    ]
                                 ].
                             ]
                         ] ifTrue:[ "sawExcla"
@@ -1774,7 +1779,7 @@
     self checkIfFileHasChanged
 
     "Modified: / 27.8.1995 / 23:06:55 / claus"
-    "Modified: / 6.7.1998 / 17:12:20 / cg"
+    "Modified: / 6.7.1998 / 17:17:24 / cg"
 !
 
 selectorOfMethodChange:changeNr
@@ -2850,5 +2855,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.139 1998-07-06 15:14:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.140 1998-07-06 15:18:39 cg Exp $'
 ! !