--- a/ApplicationModel.st	Wed Dec 03 15:15:18 1997 +0100
+++ b/ApplicationModel.st	Thu Dec 04 14:14:47 1997 +0100
@@ -1231,7 +1231,12 @@
 processName
     "return a name to be shown for me in the process monitor"
 
-    ^ 'Application'
+    self class == ApplicationModel ifTrue:[
+        ^ 'Application'
+    ].
+    ^ self class nameWithoutPrefix
+
+    "Modified: / 4.12.1997 / 12:39:14 / cg"
 !
 
 resolveClassNamed:something inClass:aClass
@@ -1545,6 +1550,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.64 1997-11-02 16:53:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.65 1997-12-04 13:14:47 cg Exp $'
 ! !
 ApplicationModel initialize!