--- a/StandaloneStartup.st	Wed Aug 04 12:21:47 2010 +0200
+++ b/StandaloneStartup.st	Wed Aug 04 12:30:16 2010 +0200
@@ -595,20 +595,26 @@
 !
 
 start
-    CommandLineArguments := (self additionalArgumentsFromRegistry) 
-                            , Smalltalk commandLineArguments.
-
-    self verboseInfo:('starting...').
-    self verboseInfo:('args: ', CommandLineArguments asStringCollection asString).
+    GenericException handle:[:ex |
+        self verboseInfo:('Error during startup:').
+        self verboseInfo:(ex description).
+        ex reject.        
+    ] do:[
+        CommandLineArguments := (self additionalArgumentsFromRegistry) 
+                                , Smalltalk commandLineArguments.
 
-    Smalltalk isStandAloneApp ifTrue:[
-        self loadPatches.
-        self verboseInfo:('setup Smalltalk').
+        self verboseInfo:('starting...').
+        self verboseInfo:('args: ', CommandLineArguments asStringCollection asString).
+
+        Smalltalk isStandAloneApp ifTrue:[
+            self loadPatches.
+            self verboseInfo:('setup Smalltalk').
+        ].
+        self setupSmalltalkFromArguments:CommandLineArguments.
+        self main
     ].
-    self setupSmalltalkFromArguments:CommandLineArguments.
-    self main
 
-    "Modified: / 04-08-2010 / 12:21:32 / cg"
+    "Modified: / 04-08-2010 / 12:30:05 / cg"
 !
 
 startStartBlockProcess
@@ -704,11 +710,11 @@
 !StandaloneStartup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.46 2010-08-04 10:21:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.47 2010-08-04 10:30:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.46 2010-08-04 10:21:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.47 2010-08-04 10:30:16 cg Exp $'
 ! !
 
 StandaloneStartup initialize!