--- a/Context.st Wed Dec 12 23:58:30 2012 +0100
+++ b/Context.st Wed Dec 12 23:59:00 2012 +0100
@@ -1497,7 +1497,7 @@
s isNil ifTrue:[
^ '**************** nil displayString of ',(someObject class name ? '??')
].
- s bitsPerCharacter > 8 ifTrue:[
+ s isWideString ifTrue:[
"make sure that the object really returns something we can stream into a string"
s := someObject storeString.
].
@@ -2463,11 +2463,11 @@
!Context class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.177 2012-11-24 12:52:13 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.178 2012-12-12 22:59:00 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.177 2012-11-24 12:52:13 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.178 2012-12-12 22:59:00 stefan Exp $'
!
version_SVN