--- a/AppModel.st	Sat Mar 01 23:15:10 1997 +0100
+++ b/AppModel.st	Mon Mar 03 11:12:08 1997 +0100
@@ -1070,7 +1070,9 @@
     self preBuildWith:builder.
     builder buildFromSpec:aSpec.
     builder window model:self.
-    builder window application:self.
+    (builder window respondsTo:#application:) ifTrue:[
+        builder window application:self.
+    ].
     self postBuildWith:builder.
 !
 
@@ -1276,6 +1278,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.44 1997-02-28 13:24:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.45 1997-03-03 10:12:08 ca Exp $'
 ! !
 ApplicationModel initialize!

--- a/ApplicationModel.st	Sat Mar 01 23:15:10 1997 +0100
+++ b/ApplicationModel.st	Mon Mar 03 11:12:08 1997 +0100
@@ -1070,7 +1070,9 @@
     self preBuildWith:builder.
     builder buildFromSpec:aSpec.
     builder window model:self.
-    builder window application:self.
+    (builder window respondsTo:#application:) ifTrue:[
+        builder window application:self.
+    ].
     self postBuildWith:builder.
 !
 
@@ -1276,6 +1278,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.44 1997-02-28 13:24:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.45 1997-03-03 10:12:08 ca Exp $'
 ! !
 ApplicationModel initialize!