--- a/ApplicationModel.st	Thu Feb 05 00:15:25 2015 +0100
+++ b/ApplicationModel.st	Thu Feb 05 09:54:49 2015 +0100
@@ -1982,18 +1982,18 @@
 
 
     self isWebService ifTrue:[
-	self breakPoint:#sr.
-	^ self
+        self breakPoint:#sr.
+        ^ self
     ].
 
     (window := self window) notNil ifTrue:[
-	sensor := window sensor.
+        sensor := window sensor.
     ].
 
     sensor isNil ifTrue:[
-	"no window (yet or any longer)"
-	someone perform:selector withArguments:argList.
-	^ self.
+        "no window (yet or any longer)"
+        someone perform:selector withArguments:argList.
+        ^ self.
     ].
 
     "/
@@ -2002,7 +2002,7 @@
     "/ back in the event loop.
     "/
     sensor criticalUserEventQueueAccess:[
-        (sensor hasEvent:selector for:someone withArguments:argList) ifFalse:[
+        (sensor hasUserEvent:selector for:someone withArguments:argList) ifFalse:[
             sensor pushUserEvent:selector for:someone withArguments:argList
         ].
     ].
@@ -4136,11 +4136,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.361 2015-01-31 13:04:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.362 2015-02-05 08:54:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.361 2015-01-31 13:04:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.362 2015-02-05 08:54:49 cg Exp $'
 ! !