X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=hbytes%2Fchop.c;h=cccd43f285358968b2bb36c894bc96ab7f51375b;hb=0bc58e49b2b0700cd43a530b4d03112f9ad2441c;hp=c81e5d6b915ae929b4442cf2e7873eb5b6f4fa35;hpb=2cf1bfc63e73a424f9f3899c204025a8346b38e0;p=chiark-tcl.git

diff --git a/hbytes/chop.c b/hbytes/chop.c
index c81e5d6..cccd43f 100644
--- a/hbytes/chop.c
+++ b/hbytes/chop.c
@@ -4,6 +4,7 @@
 #include <string.h>
 
 #include "hbytes.h"
+#include "tables.h"
 
 static int strs1(Tcl_Interp *ip, int strc, Tcl_Obj *const *strv, int *l_r) {
   int rc, l, i;
@@ -61,7 +62,9 @@ int do_hbytes_concat(ClientData cd, Tcl_Interp *ip,
   return TCL_OK;
 }
 
-static int underrun(Tcl_Interp *ip) { return staticerr(ip,"data underrun"); }
+static int underrun(Tcl_Interp *ip) {
+  return staticerr(ip,"data underrun","HBYTES LENGTH UNDERRUN");
+}
 
 int do_hbytes_unprepend(ClientData cd, Tcl_Interp *ip,
 			HBytes_Var v, int preflength, HBytes_Value *result) {