diff --git a/core/io/encodings/encodings.factor b/core/io/encodings/encodings.factor
index c1fd2c018c..5cb87da36f 100755
--- a/core/io/encodings/encodings.factor
+++ b/core/io/encodings/encodings.factor
@@ -113,7 +113,7 @@ M: decoded stream-read-until
         ] [ nip ] if
     ] [ nip ] if ;
 
-M: decoded stream-read1 1 over stream-read ;
+M: decoded stream-read1 1 swap stream-read ;
 
 M: decoded stream-readln ( stream -- str )
     "\r\n" over stream-read-until handle-readln ;