1 files changed, 9 insertions, 1 deletions
diff --git a/ds9/library/url.tcl b/ds9/library/url.tcl
index 2643e32..8a65ab7 100644
--- a/ds9/library/url.tcl
+++ b/ds9/library/url.tcl
@@ -313,9 +313,16 @@ proc ProcessURLFitsCmd {varname iname} {
     upvar $varname var
     upvar $iname i
 
+    global debug
+    if {$debug(tcl,parser)} {
+	urlfits::YY_FLUSH_BUFFER
+	urlfits::yy_scan_string [lrange $var $i end]
+	urlfits::yyparse
+	incr i [expr $urlfits::yycnt-1]
+    } else {
+
     set layer {}
     set mode {}
-
     switch -- [string tolower [lindex $var $i]] {
 	new {
 	    incr i
@@ -333,4 +340,5 @@ proc ProcessURLFitsCmd {varname iname} {
 
     LoadURLFits [lindex $var $i] $layer $mode
 }
+}