--- a/ChangeSetBrowser.st	Mon Apr 03 09:43:12 2006 +0200
+++ b/ChangeSetBrowser.st	Mon Apr 03 09:53:28 2006 +0200
@@ -733,9 +733,14 @@
                 superClass := Smalltalk at:superClassName.
             ].
             superClass isNil ifTrue:[
-                |guess|
-                guess := SystemBrowser classesWithNameSimilarTo:superClassName.
-                guess notEmptyOrNil ifTrue:[ guess := guess first ] ifFalse:[ guess := nil ].
+                |guess idx baseName|
+                idx := superClassName lastIndexOf:$:.
+                baseName := superClassName copyFrom:idx+1.
+                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).  
@@ -988,5 +993,5 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.43 2006-03-13 16:03:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.44 2006-04-03 07:53:28 cg Exp $'
 ! !