X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank.R;fp=swank.R;h=dea28cf99f2f72cec6ccadc13d1266b88b571c78;hp=24393e674d4d4acb54336d10adda46dd9789b788;hb=a46793d3e275c91add4a5235bf1d812668714629;hpb=24c95f1122fb2f12aaea143c6f1a33704a6a441f

diff --git a/swank.R b/swank.R
index 24393e6..dea28cf 100644
--- a/swank.R
+++ b/swank.R
@@ -62,7 +62,7 @@ dispatch <- function(slimeConnection, event, sldbState=NULL) {
 sendToEmacs <- function(slimeConnection, obj) {
   io <- slimeConnection$io
   payload <- writeSexpToString(obj)
-  writeChar(sprintf("%06x", nchar(payload)), io, eos=NULL)
+  writeChar(sprintf("%06x", nchar(payload, type="bytes")), io, eos=NULL)
   writeChar(payload, io, eos=NULL)
   flush(io)
 }