--- a/ByteCodeCompiler.st	Thu Mar 24 07:20:28 2016 +0000
+++ b/ByteCodeCompiler.st	Fri Mar 25 06:29:23 2016 +0000
@@ -3101,7 +3101,11 @@
         ] do:[
             "create a compiler, let it parse and create the parsetree"
 
-            self source:(ReadStream on:sourceCodeString string).
+            sourceCodeString isString ifTrue:[
+                self source:(ReadStream on:sourceCodeString string).
+            ] ifFalse:[
+                self source:sourceCodeString readStream
+            ].    
             self nextToken.
 
             self setClassToCompileFor:aClass.