--- a/ReadEvalPrintLoop.st	Fri Oct 28 08:45:38 2011 +0100
+++ b/ReadEvalPrintLoop.st	Mon Oct 31 22:19:21 2011 +0000
@@ -294,7 +294,11 @@
             input := self inputStream.
             output := self outputStream.
             error := self errorStream.
-            compilerClass := compiler ? Compiler.
+            compilerClass := compiler ? Compiler ? Parser.
+            compilerClass isNil ifTrue:[
+                self errorStream nextPutLine:('oops - no Compiler class found').
+                ^ self.
+            ].
 
             prompt notNil ifTrue:[
                 error nextPutAll:prompt.
@@ -367,19 +371,20 @@
     "
 
     "Created: / 07-12-2006 / 17:27:21 / cg"
-    "Modified: / 09-02-2011 / 14:00:49 / cg"
+    "Modified: / 06-10-2011 / 21:02:22 / cg"
 ! !
 
 !ReadEvalPrintLoop class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ReadEvalPrintLoop.st 10700 2011-09-29 15:44:37Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.29 2011/10/06 19:02:31 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.28 2011/02/09 13:03:41 cg Exp §'
+    ^ 'Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.29 2011/10/06 19:02:31 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: ReadEvalPrintLoop.st 10700 2011-09-29 15:44:37Z vranyj1 $'
+    ^ '$Id: ReadEvalPrintLoop.st 10729 2011-10-31 22:19:21Z vranyj1 $'
 ! !
+