--- a/Class.st	Tue Feb 12 20:47:05 2019 +0100
+++ b/Class.st	Tue Feb 12 20:49:34 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	       All Rights Reserved
@@ -1773,7 +1775,7 @@
 source
     "return the classes full source code"
 
-    |code aStream|
+    |aStream|
 
 " this is too slow for big classes (due to the emphasis stored)...
     code := String new:1000.
@@ -1787,7 +1789,7 @@
         self warn:'Class>>#source: cannot create temporary file: ', ex description.
         ^ nil
     ].
-    [
+    ^ [
         FileOutErrorSignal handle:[:ex |
             aStream nextPut:$" ; nextPutAll:ex description; nextPut:$".
             FileOutErrorSignal isHandled ifTrue:[
@@ -1797,13 +1799,13 @@
             self fileOutOn:aStream.
         ].
         aStream reset.
-        code := aStream contents.
+        aStream contents.
     ] ensure:[
         aStream close.
     ].
-    ^ code
 
     "Modified: / 06-10-2006 / 13:34:18 / cg"
+    "Modified: / 12-02-2019 / 20:05:23 / Stefan Vogel"
 !
 
 sourceCodeManager