--- a/CodeGeneratorTool.st	Fri Nov 24 13:08:32 2006 +0100
+++ b/CodeGeneratorTool.st	Fri Nov 24 15:54:44 2006 +0100
@@ -1468,11 +1468,11 @@
         existingComment isEmptyOrNil ifTrue:[
             (nonMetaClass isSubclassOf:HTTPService) ifTrue:[
                 existingComment := '    [start Server with:]
-        HTTPServer startServerOnPort:9090
+        HTTPServer startServerOnPort:8080
 
     [start with:]
         (self new)
-            registerServiceOn:(HTTPServer runningServerOnPort:9090)'.
+            registerServiceOn:(HTTPServer runningServerOnPort:8080)'.
             ].
         ].
 
@@ -1526,6 +1526,8 @@
             forClass:metaClass 
             inCategory:'documentation'.
     ].
+
+    "Modified: / 24-11-2006 / 15:54:27 / cg"
 !
 
 createExamplesMethodFor:aClass
@@ -2027,5 +2029,5 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.51 2006-10-27 09:13:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.52 2006-11-24 14:54:44 cg Exp $'
 ! !