X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=hbytes%2Fchop.c;h=cccd43f285358968b2bb36c894bc96ab7f51375b;hb=4149293c485d766e446f1a841892420059755347;hp=48eb770310fc5dbc813b445a7fa41ae3f9883f42;hpb=d23a32272b954579fe15c78d6ea605e087d0a512;p=chiark-tcl.git

diff --git a/hbytes/chop.c b/hbytes/chop.c
index 48eb770..cccd43f 100644
--- a/hbytes/chop.c
+++ b/hbytes/chop.c
@@ -62,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) {