diff --git a/interp.hs b/interp.hs
index 4010c1f..be439ab 100644
--- a/interp.hs
+++ b/interp.hs
@@ -111,7 +111,7 @@ _fputbytes (TupleV [StreamV h, StrV str]) = do
 _fputstr (TupleV [StreamV h, StrV str]) = do
 	(handles,_) <- get
 	let handle = handles !! h
-	io <- lift $ UTF8.hPutStr handle str >> hFlush handle
+	io <- lift $ hPutStr handle str >> hFlush handle
 	return UnitV
 
 _fgetline (StreamV h) = do