--- a/XWorkstation.st	Sat Jun 28 17:14:05 1997 +0200
+++ b/XWorkstation.st	Sat Jun 28 20:19:36 1997 +0200
@@ -7881,11 +7881,16 @@
     "get a text property; return string or nil"
 
     self getProperty:propertyID from:aWindowID into:[:type :value |
-	type == stringAtom ifTrue:[
-	    ^ value
-	]
+        type == stringAtom ifTrue:[
+            clipBoardEncoding notNil ifTrue:[
+                ^ value decodeFrom:clipBoardEncoding
+            ].    
+            ^ value
+        ]
     ].
     ^ nil
+
+    "Modified: 28.6.1997 / 20:18:18 / cg"
 !
 
 setLengthProperty:propertyID value:aNumber for:aWindowID
@@ -9341,6 +9346,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.248 1997-06-17 16:11:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.249 1997-06-28 18:19:36 cg Exp $'
 ! !
 XWorkstation initialize!