--- a/XWorkstation.st	Fri Apr 27 12:07:21 2018 +0200
+++ b/XWorkstation.st	Fri Apr 27 12:21:31 2018 +0200
@@ -10984,7 +10984,7 @@
         typeAtomID := self atomIDOf:typeSymbolOrAtomID create:false.
         typeAtomID isNil ifTrue:[^ false].
     ] ifFalse:[
-        propertyAtomID := typeSymbolOrAtomID.
+        typeAtomID := typeSymbolOrAtomID.
     ].
     aWindowOrWindowIDOrNil isView ifTrue:[
         windowIDOrNil := aWindowOrWindowIDOrNil drawableId.
@@ -10994,7 +10994,7 @@
 
     ^ self primSetProperty:propertyAtomID type:typeAtomID value:anObject for:windowIDOrNil
 
-    "Modified: / 26-04-2018 / 10:43:29 / stefan"
+    "Modified: / 27-04-2018 / 12:20:46 / stefan"
 ! !
 
 !XWorkstation methodsFor:'queries'!