--- a/XWorkstation.st	Fri Jul 17 12:12:54 1998 +0200
+++ b/XWorkstation.st	Fri Jul 17 12:14:04 1998 +0200
@@ -8397,7 +8397,7 @@
          || __isSmallInteger(anObject) 
          || __isSymbol(anObject) 
          || __isByteArray(anObject)
-         || __isWords(anObject))) { 
+         || __isWords(anObject))) {
 
         Display *dpy = myDpy;
         Atom prop, type;
@@ -8432,6 +8432,7 @@
                                     __stringVal(anObject),
                                     __wordArraySize(anObject));
                 } else {
+		    /* must be string or symbol */
                     XChangeProperty(dpy, window, prop, type, 8,
                                     PropModeReplace,
                                     __stringVal(anObject),
@@ -9905,6 +9906,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.284 1998-06-17 18:25:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.285 1998-07-17 10:14:04 cg Exp $'
 ! !
 XWorkstation initialize!