diff --git a/README.md b/README.md
index 10765c6..5160adc 100644
--- a/README.md
+++ b/README.md
@@ -24,7 +24,7 @@ See the [manual](lttb-manual.md) for more details on every supported command and
 
 Here are all currently known implementations of LTTB:
 
-* [Jim Tcl port](./lttb.tcl) (298 SLOC)
+* [Jim Tcl port](./lttb.tcl) (296 SLOC)
 
 ## FAQ
 
diff --git a/lttb.tcl b/lttb.tcl
index c8d15bc..1ffbbf8 100755
--- a/lttb.tcl
+++ b/lttb.tcl
@@ -207,12 +207,10 @@ proc lttb_IN {stmt} {
   puts -nonewline {? }
   stdout flush
   set inputbuf [string toupper [string trim [stdin gets]]]
-  set inputlist [lmap s [split [lttb_stripspace $inputbuf] ,] {
-    lttb_eval $s
-  }]
+  set inputlist [split [lttb_stripspace $inputbuf] ,]
   loop i 0 $vlen {
     set vname [string index [lindex $varlist $i] 0]
-    set vars($vname) [lindex $inputlist $i]
+    set vars($vname) [lttb_eval [lindex $inputlist $i]]
   }
 }