--- a/CodeGeneratorTool.st	Tue Nov 17 12:27:07 2009 +0100
+++ b/CodeGeneratorTool.st	Tue Nov 17 12:33:27 2009 +0100
@@ -1625,7 +1625,11 @@
 '.
             hasAplicationClass ifTrue: [
                 stream nextPutAll: 
-'    %1 open.
+'    Smalltalk openDisplay.
+    Display notNil ifTrue:[
+        Display exitOnLastClose:true.
+    ].
+    %1 open.
 '.
             ].
         ].
@@ -3161,9 +3165,9 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.83 2009-11-17 11:27:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.84 2009-11-17 11:33:27 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.83 2009-11-17 11:27:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.84 2009-11-17 11:33:27 stefan Exp $'
 ! !