--- a/StandaloneStartup.st	Thu Nov 20 23:24:12 2008 +0100
+++ b/StandaloneStartup.st	Thu Nov 20 23:25:24 2008 +0100
@@ -486,7 +486,6 @@
     (self allowScriptingOption) ifTrue:[
         idx := argv indexOfAny:#('--scripting').
         idx ~~ 0 ifTrue:[
-            self verboseInfo:('scripting on').
             nextArg := argv at:(idx + 1) ifAbsent:nil.
             (nextArg notNil and:[ (nextArg startsWith:'-') not ]) ifTrue:[
                 portNr := nextArg asInteger.
@@ -498,6 +497,7 @@
         ].
     ].
     scripting ifTrue:[
+        self verboseInfo:('scripting on').
         STXScriptingServer notNil ifTrue:[
             "/ scripting on port/stdin_out/8008
             self verboseInfo:('start scripting').
@@ -616,7 +616,7 @@
 !StandaloneStartup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.22 2008-11-20 22:24:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.23 2008-11-20 22:25:24 cg Exp $'
 ! !
 
 StandaloneStartup initialize!