--- a/Tools__NewClassWizardDialog.st	Thu Aug 18 16:02:27 2011 +0200
+++ b/Tools__NewClassWizardDialog.st	Fri Aug 19 01:01:55 2011 +0200
@@ -847,7 +847,7 @@
     namespaceString isNil ifTrue:[^ self].
 
     existing := Smalltalk classNamed:namespaceString.
-    (existing notNil and:[existing isNamespace]) ifTrue:[
+    (existing notNil and:[existing isNameSpace]) ifTrue:[
         "/ exists
     ] ifFalse:[
         (existing notNil) ifTrue:[
@@ -859,6 +859,8 @@
         NameSpace name:namespaceString.
     ].
     self nameSpaceHolder value:namespaceString.
+
+    "Modified: / 19-08-2011 / 01:00:52 / cg"
 !
 
 openPackageChooser
@@ -1220,5 +1222,5 @@
 !NewClassWizardDialog class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.15 2011-01-30 16:20:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.16 2011-08-18 23:01:55 cg Exp $'
 ! !