--- a/ReadEvalPrintLoop.st	Wed Mar 05 22:57:55 2014 +0100
+++ b/ReadEvalPrintLoop.st	Wed Mar 05 23:12:08 2014 +0100
@@ -12,12 +12,12 @@
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#ReadEvalPrintLoop
-        instanceVariableNames:'inputStream outputStream errorStream compiler prompt
-                doChunkFormat traceFlag timingFlag printFlag exitAction
-                currentDirectory'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'System-Support'
+	instanceVariableNames:'inputStream outputStream errorStream compiler prompt
+		doChunkFormat traceFlag timingFlag printFlag exitAction
+		currentDirectory'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Support'
 !
 
 !ReadEvalPrintLoop class methodsFor:'documentation'!
@@ -409,7 +409,7 @@
     cmd := s nextAlphaNumericWord.
     cmd notNil ifTrue:[
         self 
-            perform:('cmd_',cmd,':') asSymbol with:s 
+            perform:('cmd_',cmd) asMutator with:s 
             ifNotUnderstood:[   
                 self errorStream  
                     nextPutAll:'?? invalid command: ';
@@ -590,10 +590,10 @@
 !ReadEvalPrintLoop class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.51 2014-02-25 13:29:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.52 2014-03-05 22:12:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.51 2014-02-25 13:29:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.52 2014-03-05 22:12:08 cg Exp $'
 ! !