--- a/WindowEvent.st	Wed Mar 05 16:58:09 2014 +0100
+++ b/WindowEvent.st	Wed Mar 05 23:13:18 2014 +0100
@@ -754,7 +754,7 @@
 
     args size = 0 ifTrue:[
         ^ anObject 
-            perform:(selector , ':') asSymbol
+            perform:selector asMutator
             with:receiver
     ].
 
@@ -1747,11 +1747,12 @@
 
 version_CVS
 
-    ^  '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.110 2012-11-27 17:49:57 ab Exp $'
+    ^  '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.111 2014-03-05 22:13:18 cg Exp $'
 !
 
 version_SVN
-    ^ '§ Id §'
+    ^ '$ Id $'
 ! !
 
+
 WindowEvent::InputEvent initialize!