--- a/ChangesBrowser.st	Mon Jul 24 15:58:52 2000 +0200
+++ b/ChangesBrowser.st	Mon Jul 24 16:09:15 2000 +0200
@@ -791,7 +791,7 @@
     "
      first look, if not already known
     "
-    name := changeClassNames at:changeNr.
+"/    name := changeClassNames at:changeNr.
     name notNil ifTrue:[^ name].
 
     prevMethodDefNr := changeNr.
@@ -1213,21 +1213,14 @@
      default and can be enabled via a toggle."
 
     |aStream maxLen i f chunkText fullChunkText askedForEditingClassSource
-            excla timeStampInfo entry changeDelta changeString changeType 
-             line s l changeClass sawExcla category 
-             chunkPos sel index headerLine cls p rec  clsName
-         myProcess myPriority myPrioRange
-                             done first className  text methodPos 
-                             singleJunkOnly methodChunks singleInfo
-
-                                                m currentText t1 t2|
-
-
-
-
-
-
-
+     excla timeStampInfo entry changeDelta changeString changeType 
+     line s l changeClass sawExcla category 
+     chunkPos sel index headerLine cls p rec clsName
+     myProcess myPriority myPrioRange
+     done first className  text methodPos 
+     singleJunkOnly methodChunks singleInfo
+     ownerTree ownerName
+     m currentText t1 t2|
 
     editingClassSource := false.
     askedForEditingClassSource := false.
@@ -1439,6 +1432,14 @@
                                     changeType := '(class definition)'.
                                     clsName := (p args at:1) evaluate.
                                     changeClassNames at:changeClassNames size put:clsName.
+
+                                    "/ is it a private-class ?
+                                    ('*privateIn:' match:sel) ifTrue:[
+                                        ownerTree := p args last.
+                                        ownerName := ownerTree name asString.
+                                        clsName := ownerName , '::' , clsName
+                                    ].
+                                
                                     changeString := clsName.
                                     NoColoring ~~ true ifTrue:[
                                         changeType := changeType asText allBold.
@@ -2658,6 +2659,9 @@
         className := self classNameOfChange:changeNr.
         className notNil ifTrue:[
             class := Smalltalk classNamed:className.
+            class isNil ifTrue:[
+                self halt.
+            ].
             class notNil ifTrue:[
                 class isPrivate ifTrue:[
                     (self confirm:('This is a private class.\\CheckIn the owner ''%1'' and all of its private classes ?' bindWith:class owningClass name asText allBold) withCRs)
@@ -3438,5 +3442,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.196 2000-07-24 13:58:52 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.197 2000-07-24 14:09:15 tm Exp $'
 ! !