--- a/StandaloneStartup.st	Fri Jun 13 12:59:28 2008 +0200
+++ b/StandaloneStartup.st	Fri Jun 13 14:11:41 2008 +0200
@@ -120,6 +120,7 @@
 !StandaloneStartup class methodsFor:'startup'!
 
 loadPatch:fileName
+    self verboseInfo:('loading patch: ',fileName baseName).
     Smalltalk fileIn:fileName pathName.
 !
 
@@ -129,7 +130,6 @@
     patchesDir := OperatingSystem pathOfSTXExecutable asFilename directory construct:'patches'.
     (patchesDir exists and:[patchesDir isDirectory]) ifTrue:[
         patchesDir directoryContents sort do:[:eachFile |
-            self verboseInfo:('loading patch: ',eachFile).
             self loadPatch:(patchesDir construct:eachFile).
         ].
     ].
@@ -287,7 +287,7 @@
 !StandaloneStartup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.9 2008-06-13 10:59:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.10 2008-06-13 12:11:41 cg Exp $'
 ! !
 
 StandaloneStartup initialize!