--- a/ChangeSetBrowser.st	Fri Mar 02 16:36:11 2007 +0100
+++ b/ChangeSetBrowser.st	Mon Mar 05 11:26:38 2007 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool' }"
 
 ChangesBrowser subclass:#ChangeSetBrowser
@@ -740,18 +739,23 @@
             ] ifTrue:[
                 superClass := Smalltalk at:superClassName.
             ].
+
             superClass isNil ifTrue:[
-                |guess idx baseName|
+                |guess idx baseName nsName dontShowAgain|
+
                 idx := superClassName lastIndexOf:$:.
                 baseName := superClassName copyFrom:idx+1.
+                nsName := superClassName copyTo:idx-2.
                 guess := Smalltalk classNamed:baseName.
                 guess isNil ifTrue:[
                     guess := SystemBrowser classesWithNameSimilarTo:baseName.
                     guess notEmptyOrNil ifTrue:[ guess := guess first ] ifFalse:[ guess := nil ].
                 ].
+
                 superClass := Dialog 
-                                requestClass:'No superclass: ', superClassName allBold , ' enter a replacement:' 
-                                initialAnswer:(guess ? superClassName).  
+                            requestClass:'No superclass: ', superClassName allBold , ' enter a replacement:' 
+                            initialAnswer:(guess ? superClassName).
+
                 superClass isNil ifTrue:[^ self ].
             ].
             
@@ -762,6 +766,8 @@
     ].
 
     aChange apply.
+
+    "Modified: / 03-03-2007 / 10:29:50 / cg"
 !
 
 changeIsFollowupMethodChange:changeNr
@@ -1002,5 +1008,5 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.46 2006-08-23 18:06:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.47 2007-03-05 10:26:38 cg Exp $'
 ! !