--- a/AbstractSourceCodeManager.st	Wed Jan 21 20:07:48 2015 +0100
+++ b/AbstractSourceCodeManager.st	Thu Jan 22 09:43:24 2015 +0100
@@ -2735,7 +2735,7 @@
         | writer |
 
         writer := aClass programmingLanguage sourceFileWriterClass new.
-        writer generatingSourceForOriginal:false.
+        writer generatingSourceForOriginal:true.
         writer 
             fileOut:aClass 
             on:aStream 
@@ -2753,7 +2753,7 @@
 
     self checkTabSpaceConventionIn: aStream.
 
-    "Modified: / 04-10-2014 / 12:12:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-01-2015 / 09:39:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 getExistingContainersInModule:aModule directory:aPackage
@@ -3985,15 +3985,15 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.338 2015-01-21 19:07:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.339 2015-01-22 08:43:24 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.338 2015-01-21 19:07:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.339 2015-01-22 08:43:24 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: AbstractSourceCodeManager.st,v 1.338 2015-01-21 19:07:48 stefan Exp $'
+    ^ '$Id: AbstractSourceCodeManager.st,v 1.339 2015-01-22 08:43:24 vrany Exp $'
 ! !