--- a/ReadEvalPrintLoop.st	Thu Dec 07 19:16:46 2006 +0100
+++ b/ReadEvalPrintLoop.st	Thu Dec 07 19:19:31 2006 +0100
@@ -235,7 +235,7 @@
         compilerClass := compiler ? Compiler.
 
         prompt notNil ifTrue:[
-            output nextPutAll:prompt.
+            error nextPutAll:prompt.
         ].
 
         input atEnd ifTrue:[
@@ -253,10 +253,16 @@
                 line := input nextLine.
                 line notEmptyOrNil ifTrue:[
                     line = '?' ifTrue:[
-                        self cmd_help:nil
+                        self cmd_help:nil.
+                        prompt notNil ifTrue:[
+                            error nextPutAll:prompt.
+                        ].
                     ] ifFalse:[
                         (line startsWith:'#') ifTrue:[
-                            self directive:line
+                            self directive:line.
+                            prompt notNil ifTrue:[
+                                error nextPutAll:prompt.
+                            ].
                         ] ifFalse:[
                             lines add:line.
                         ]
@@ -285,11 +291,11 @@
     "
 
     "Created: / 07-12-2006 / 17:27:21 / cg"
-    "Modified: / 07-12-2006 / 19:16:27 / cg"
+    "Modified: / 07-12-2006 / 19:20:06 / cg"
 ! !
 
 !ReadEvalPrintLoop class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.8 2006-12-07 18:16:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.9 2006-12-07 18:19:31 cg Exp $'
 ! !