--- a/ReadEvalPrintLoop.st	Tue Nov 08 18:52:53 2016 +0100
+++ b/ReadEvalPrintLoop.st	Tue Nov 08 18:55:26 2016 +0100
@@ -370,17 +370,22 @@
         ^ self.
     ].
 
+    currentDirectory := currentDirectory ? (Filename currentDirectory).
+
+'fn is' errorPrint. filename errorPrintCR.
     filename := filename asFilename.
+'fn is' errorPrint. filename errorPrintCR.
     filename isAbsolute ifFalse:[
-        currentDirectory := currentDirectory ? (Filename currentDirectory).
         filename := currentDirectory construct:filename.
     ].
+'fn is' errorPrint. filename errorPrintCR.
 
     newInput := filename readStream.
     newInput isNil ifTrue:[
-        ('Could not find file: "',filename,'"') errorPrintCR.
+        ('Could not find file: "',filename pathName,'"') errorPrintCR.
         ^ self.
     ].
+'newInput is' errorPrint. newInput errorPrintCR.
 
     [
         savedCurrentDirectory := currentDirectory.
@@ -392,6 +397,7 @@
         currentDirectory := filename directory.
         inputStream := newInput.
         
+'new repl...' errorPrintCR.
         self
             basicReadEvalPrintLoopWithInput:newInput
             output:outputStream