X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank.R;h=dc5cbd165e7204384d1940a16d6e252ac7b8351d;hp=71d502ecc03039de80f2de99401c8003d98cb963;hb=21417cc77b6c04eb127db66c620f7b4e38164ace;hpb=99505873e6e7409fdfdf0852b84e111b7994414b

diff --git a/swank.R b/swank.R
index 71d502e..dc5cbd1 100644
--- a/swank.R
+++ b/swank.R
@@ -239,7 +239,7 @@ writeSexpToString <- function(obj) {
 }
 
 `swank:listener-eval` <- function(io, sldbState, string) {
-  val <- eval(parse(text=string))
+  val <- eval(parse(text=string), envir = globalenv())
   f <- fifo("")
   sink(f)
   print(val)