--- a/ApplicationModel.st	Tue Feb 24 16:58:51 2015 +0100
+++ b/ApplicationModel.st	Tue Mar 03 11:39:42 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -1961,12 +1963,9 @@
      multiple redraws."
 
     ^ self
-	enqueueMessage:#delayedUpdate:with:from:
-	for:self
-	arguments:(Array
-			with:something
-			with:aParameter
-			with:changedObject).
+        enqueueMessage:#delayedUpdate:with:from:
+        for:self
+        arguments:{ something . aParameter . changedObject }.
 
     "Modified: / 26.2.2000 / 18:01:44 / cg"
 !
@@ -2001,11 +2000,7 @@
     "/ Otherwise push it as an event, to be handled when my thread is
     "/ back in the event loop.
     "/
-    sensor criticalUserEventQueueAccess:[
-        (sensor hasUserEvent:selector for:someone withArguments:argList) ifFalse:[
-            sensor pushUserEvent:selector for:someone withArguments:argList
-        ].
-    ].
+    sensor enqueueMessage:selector for:someone arguments:argList
 
     "Created: / 26-02-2000 / 18:01:31 / cg"
     "Modified: / 23-03-2011 / 19:46:41 / cg"
@@ -4136,11 +4131,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.362 2015-02-05 08:54:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.363 2015-03-03 10:39:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.362 2015-02-05 08:54:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.363 2015-03-03 10:39:42 cg Exp $'
 ! !