1 files changed, 12 insertions, 0 deletions
diff --git a/ds9/library/vla.tcl b/ds9/library/vla.tcl
index 034dfef..ef33a6f 100644
--- a/ds9/library/vla.tcl
+++ b/ds9/library/vla.tcl
@@ -161,6 +161,18 @@ charting of the Universe.
 
 proc ProcessVLACmd {varname iname} {
     upvar $varname var
+    upvar $iname ii
+
+    VLADialog
+
+    vla::YY_FLUSH_BUFFER
+    vla::yy_scan_string [lrange $var $ii end]
+    vla::yyparse
+    incr ii [expr $vla::yycnt-1]
+}
+
+proc oProcessVLACmd {varname iname} {
+    upvar $varname var
     upvar $iname i
 
     VLADialog