diff -r 15ddde9ccd3d -r d1768187cb74 SmalltalkChunkFileSourceWriter.st
--- a/SmalltalkChunkFileSourceWriter.st	Sat Apr 11 07:03:33 2015 +0100
+++ b/SmalltalkChunkFileSourceWriter.st	Mon Apr 13 21:42:19 2015 +0100
@@ -124,7 +124,7 @@
                             |src|
 
                             src := m source.
-                            src notNil and:[src isWideString]
+                            src notNil and:[src isWideString and:[ src contains: [:c | c codePoint > 16rFF ] ] ]
                         ]]].
 
     any16Bit ifTrue:[
@@ -140,6 +140,7 @@
         encoder:encoder
 
     "Created: / 04-10-2014 / 12:11:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-04-2015 / 21:28:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileOut:aClass on:outStreamArg withTimeStamp:stampIt withInitialize:initIt withDefinition:withDefinition methodFilter:methodFilter encoder:encoderOrNil
@@ -577,7 +578,7 @@
 
     |source possiblyRewrittenSource rewriteQuery|
 
-    source := aMethod source.
+    source := aMethod source asSingleByteStringIfPossible.
     source isNil ifTrue:[
         Class fileOutErrorSignal 
             raiseRequestWith:aMethod mclass
@@ -599,6 +600,8 @@
 "/    Transcript showCR: possiblyRewrittenSource.
 "/].
     ].
+
+    "Modified: / 13-04-2015 / 21:37:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileOutMethods: methods on: stream
@@ -715,6 +718,11 @@
     ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.30 2015-02-03 19:14:15 cg Exp $'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$ Id: SmalltalkChunkFileSourceWriter.st 10643 2011-06-08 21:53:07Z vranyj1  $'
 ! !