--- a/CodeGeneratorTool.st	Fri Nov 06 20:04:01 2009 +0100
+++ b/CodeGeneratorTool.st	Fri Nov 06 20:04:11 2009 +0100
@@ -1393,7 +1393,7 @@
         m := metaClass responseTo:#new.
         (m isNil 
         or:[ (m sends:#initialize) not 
-        or:[ |answer|
+        or:[ 
             (Dialog 
                 confirmWithCancel:'The inherited #new method already seems to invoke #initialize. Redefine ?'
                 onCancel:[^ self]) ]]) ifTrue:[
@@ -3153,9 +3153,9 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.77 2009-11-06 11:27:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.78 2009-11-06 19:04:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.77 2009-11-06 11:27:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.78 2009-11-06 19:04:11 cg Exp $'
 ! !