--- a/StandaloneStartup.st	Mon Jun 09 23:43:09 2008 +0200
+++ b/StandaloneStartup.st	Fri Jun 13 12:59:28 2008 +0200
@@ -119,6 +119,10 @@
 
 !StandaloneStartup class methodsFor:'startup'!
 
+loadPatch:fileName
+    Smalltalk fileIn:fileName pathName.
+!
+
 loadPatches
     |patchesDir|
 
@@ -126,7 +130,7 @@
     (patchesDir exists and:[patchesDir isDirectory]) ifTrue:[
         patchesDir directoryContents sort do:[:eachFile |
             self verboseInfo:('loading patch: ',eachFile).
-            Smalltalk fileIn:(patchesDir construct:eachFile) pathName.
+            self loadPatch:(patchesDir construct:eachFile).
         ].
     ].
 
@@ -283,7 +287,7 @@
 !StandaloneStartup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.8 2008-04-15 11:24:55 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.9 2008-06-13 10:59:28 cg Exp $'
 ! !
 
 StandaloneStartup initialize!