1 files changed, 10 insertions, 1 deletions
diff --git a/util/util.C b/util/util.C
index 1abc0e1..f84a309 100644
--- a/util/util.C
+++ b/util/util.C
@@ -7,9 +7,16 @@
 #include <iomanip>
 using namespace std;
 
+#include <tcl.h>
+
 #include "util.h"
 
-static char tobuf[1024];
+void internalError(const char* msg)
+{
+  extern Tcl_Interp *global_interp;
+  Tcl_SetVar2(global_interp, "ds9", "msg", msg, TCL_GLOBAL_ONLY);
+  Tcl_SetVar2(global_interp, "ds9", "msg,level", "error", TCL_GLOBAL_ONLY);
+}
 
 void swap2(char* src, char* dest) {
   *(dest  ) = *(src+1);
@@ -89,6 +96,8 @@ char* toUpper(const char* str)
   return rr;
 }
 
+static char tobuf[1024];
+
 char* toConstLower(const char* str)
 {
   strncpy(tobuf,str,1024);