--- a/CodeGeneratorTool.st	Mon Mar 06 09:53:18 2006 +0100
+++ b/CodeGeneratorTool.st	Mon Mar 06 09:53:21 2006 +0100
@@ -190,7 +190,7 @@
                           #label: ''-''
                       )
                        #(#MenuItem
-                          #label: ''About this Application''
+                          #label: ''About this Application...''
                           #translateLabel: true
                           #value: #openAboutThisApplication
                       )
@@ -1248,7 +1248,7 @@
                             (aClass isMeta ifTrue:['classInstVar'] ifFalse:['instance'])].
 
         methodName := name.
-        name first isUppercase ifTrue:[
+        name isUppercaseFirst ifTrue:[
             methodName := methodName asLowercaseFirst. 
         ].
 
@@ -1404,7 +1404,7 @@
         |source varType methodName holderMethodName defaultMethodName|
 
         holderMethodName := name.
-        name first isUppercase ifTrue:[
+        name isUppercaseFirst ifTrue:[
             holderMethodName := holderMethodName asLowercaseFirst. 
         ].
         (holderMethodName endsWith:'Holder') ifTrue:[
@@ -1858,5 +1858,5 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.35 2005-07-13 15:18:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.36 2006-03-06 08:53:21 cg Exp $'
 ! !