--- a/ChangesBrowser.st	Tue Sep 10 14:05:27 2002 +0200
+++ b/ChangesBrowser.st	Tue Sep 10 14:06:09 2002 +0200
@@ -2897,7 +2897,7 @@
 
     |aStream applyAction nameSpace className changeClass ownerName ownerClass
      sig reader doItChunk methodsForChunk pkg 
-     alternativeClass shortName orgClassName|
+     alternativeClass shortName orgClassName nsClass|
 
     aStream := self streamForChange:changeNr.
     aStream isNil ifTrue:[^ self].
@@ -2964,13 +2964,20 @@
                                 changeClass := Smalltalk at:className ifAbsent:[].
                             ].
                             [changeClass isNil] whileTrue:[
-                                shortName := className copyFrom:(className lastIndexOf:$:) + 1.
-                                shortName = className ifTrue:[
-                                     shortName := ''
+                                (NameSpace allNamespaces 
+                                    detect:[:ns | (nsClass := (ns at:className)) notNil] ifNone:nil)
+                                notNil ifTrue:[
+                                    shortName := nsClass name.
+                                ] ifFalse:[
+                                    shortName := className copyFrom:(className lastIndexOf:$:) + 1.
+                                    shortName = className ifTrue:[
+                                         shortName := ''
+                                    ].
                                 ].
                                 className := Dialog 
                                                 request:'No class ''' , className , ''' for change. Add to which class ?'
                                                 initialAnswer:shortName.
+
                                 className size == 0 ifTrue:[
                                     ^ self    
                                 ].
@@ -5102,5 +5109,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.270 2002-08-16 11:50:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.271 2002-09-10 12:06:09 cg Exp $'
 ! !