--- a/patches	Sun Jun 07 03:41:29 1998 +0200
+++ b/patches	Sat Jun 20 16:05:39 1998 +0200
@@ -114,6 +114,7 @@
 			Model
 			Controller
 			ApplicationModel
+			ApplicationWindow
 			WindowBuilder
 			PopUpView
 			ShadowView
@@ -221,6 +222,25 @@
 'patches [info]: installing patches ...' infoPrintCR.
 !
 
+"/ future systems will read patches from a patch-directory,
+"/ called stxPatches. (we will deliver patch-sets in the future)
+"/ This is not yet implemented, but we are prepared here for
+"/ this ...
+
+|patchDir|
+
+patchDir := 'stxPatches' asFilename.
+(patchDir exists and:[patchDir isDirectory and:[patchDir isReadable]]) ifTrue:[
+    patchDir directoryContents do:[:f |
+	|fn|
+
+	fn := (patchDir construct:f) name.
+	('patches [info]: reading patchFile ''' , fn , ''' ...') infoPrintCR.
+	Smalltalk fileIn:fn.
+    ]
+].
+!
+
 "/
 "/ the following patches where added by the changesBrowsers 'make change a patch'
 "/ function ...