--- a/ApplicationModel.st	Thu Nov 20 09:52:38 2008 +0100
+++ b/ApplicationModel.st	Thu Nov 20 12:03:42 2008 +0100
@@ -985,6 +985,9 @@
         ^ self
     ].
     masterApplication := something.
+
+    "/ ensure that the device is compatible.
+    device := masterApplication device.
 !
 
 resources
@@ -3430,7 +3433,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.271 2008-11-05 15:07:40 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.272 2008-11-20 11:03:42 sr Exp $'
 ! !
 
 ApplicationModel initialize!