--- a/AppModel.st	Fri Jun 19 02:44:59 1998 +0200
+++ b/AppModel.st	Fri Jun 19 03:37:17 1998 +0200
@@ -1241,8 +1241,7 @@
 "/    builder bindings:builder bindings.
 
     builder isNil ifTrue:[
-        builder := self builderClass new.
-        builder application:self.
+        self createBuilder.
     ].
 
     self preBuildWith:builder.
@@ -1254,7 +1253,7 @@
     ].
     self postBuildWith:builder.
 
-    "Modified: / 19.6.1998 / 01:39:16 / cg"
+    "Modified: / 19.6.1998 / 03:35:31 / cg"
 !
 
 allButOpenInterface:aSymbol
@@ -1524,6 +1523,15 @@
     "Modified: / 19.6.1998 / 01:45:24 / cg"
 !
 
+createBuilder
+    builder isNil ifTrue:[
+        builder := self builderClass new.
+        builder application:self.
+    ]
+
+    "Created: / 19.6.1998 / 03:32:37 / cg"
+!
+
 opened:whichTopView
     "the topView has been opened.
      This is sent by my topView when its really open
@@ -1795,6 +1803,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.87 1998-06-19 00:01:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.88 1998-06-19 01:37:17 cg Exp $'
 ! !
 ApplicationModel initialize!