--- a/AppModel.st	Mon Feb 22 20:41:46 1999 +0100
+++ b/AppModel.st	Fri Feb 26 00:07:04 1999 +0100
@@ -126,7 +126,7 @@
 new
     "return a new initialized instance"
 
-    ^ super new basicInitialize initialize
+    ^ self basicNew basicInitialize initialize
 
     "Modified: 24.4.1996 / 09:42:14 / cg"
 !
@@ -135,7 +135,7 @@
     "return a new initialized instance, which shall open its interface
      on aDevice."
 
-    ^ (super new basicInitialize
+    ^ (self basicNew basicInitialize
         setDevice:aDevice) initialize
 
     "Modified: 24.4.1996 / 09:42:14 / cg"
@@ -1974,6 +1974,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.100 1999-02-18 17:27:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.101 1999-02-25 23:07:04 cg Exp $'
 ! !
 ApplicationModel initialize!