--- a/BrowserView.st	Thu May 28 12:27:31 1998 +0200
+++ b/BrowserView.st	Fri May 29 19:10:00 1998 +0200
@@ -2692,27 +2692,27 @@
 
     ownerName := Dialog request:(resources string:'name of owner class:').
     ownerName size == 0 ifTrue:[
-	"/ cancelled
-	^ self
+        "/ cancelled
+        ^ self
     ].
     owner := Smalltalk classNamed:ownerName.
     owner isNil ifTrue:[
-	self warn:(resources string:'no class named ''%1'' found - try again.' with:ownerName).
-	^ self
-    ].
-
-    (owner privateClassesAt:currentClass name) notNil ifTrue:[
-	self warn:(resources 
-			string:'a private class named ''%1'' already exists in ''%2''.\\Please remove/rename that one first,\or rename the public class ''%1'' here\and try again.'
-			with:currentClass name
-			with:ownerName)
-		    withCRs.
-	^ self
+        self warn:(resources string:'no class named ''%1'' found - try again.' with:ownerName).
+        ^ self
+    ].
+
+    (owner privateClassesAt:currentClass nameWithoutPrefix) notNil ifTrue:[
+        self warn:(resources 
+                        string:'a private class named ''%1'' already exists in ''%2''.\\Please remove/rename that one first,\or rename the public class ''%1'' here\and try again.'
+                        with:currentClass nameWithoutPrefix
+                        with:ownerName)
+                    withCRs.
+        ^ self
     ].
 
     currentClass makePrivateIn:owner
 
-    "Modified: 3.7.1997 / 13:26:16 / cg"
+    "Modified: / 29.5.1998 / 19:03:19 / cg"
 !
 
 classMakePublic
@@ -11503,6 +11503,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.412 1998-05-28 10:27:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.413 1998-05-29 17:10:00 cg Exp $'
 ! !
 BrowserView initialize!