--- a/Tools__NewClassWizardDialog.st	Thu Nov 12 14:23:30 2009 +0100
+++ b/Tools__NewClassWizardDialog.st	Thu Nov 12 14:24:20 2009 +0100
@@ -810,6 +810,8 @@
 !
 
 openNamespaceChooser
+    "(mis)use the browser's namespace dialog"
+
     |browser namespaceString existing|
 
     (browser := masterApplication) isNil ifTrue:[
@@ -835,6 +837,8 @@
 !
 
 openPackageChooser
+    "(mis)use the browser's package dialog"
+
     |browser package|
 
     (browser := masterApplication) isNil ifTrue:[
@@ -848,6 +852,8 @@
 !
 
 openSuperClassChooser
+    "(mis)use the browser's class dialog"
+
     |browser class classValid classNameOrNil|
 
     (browser := masterApplication) isNil ifTrue:[
@@ -1109,5 +1115,5 @@
 !NewClassWizardDialog class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.9 2009-11-12 13:23:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.10 2009-11-12 13:24:20 cg Exp $'
 ! !