diff options
-rw-r--r-- | ds9/library/error.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ds9/library/error.tcl b/ds9/library/error.tcl index 9a9311e..e6e6b0e 100644 --- a/ds9/library/error.tcl +++ b/ds9/library/error.tcl @@ -62,7 +62,7 @@ proc ParserError {msg yycnt yy_current_buffer index_} { Error "$msg: [lindex $yy_current_buffer [expr $yycnt-1]]" } default { - puts stderr "$yy_current_buffer" + puts stderr "[string range $yy_current_buffer 0 60]" puts stderr [format "%*s" $index_ ^] puts stderr "$msg:" QuitDS9 |