diff --git a/ase/awk/awk.h b/ase/awk/awk.h
index 473a93d0..ccc1975f 100644
--- a/ase/awk/awk.h
+++ b/ase/awk/awk.h
@@ -1,5 +1,5 @@
 /* 
- * $Id: awk.h,v 1.208 2007-03-10 15:22:53 bacon Exp $
+ * $Id: awk.h,v 1.209 2007-03-10 15:29:54 bacon Exp $
  *
  * {License}
  */
@@ -400,6 +400,7 @@ int ase_awk_seterrstr (ase_awk_t* awk, int num, const ase_char_t* str);
 int ase_awk_geterrnum (ase_awk_t* awk);
 ase_size_t ase_awk_geterrlin (ase_awk_t* awk);
 const ase_char_t* ase_awk_geterrmsg (ase_awk_t* awk);
+void ase_awk_seterrnum (ase_awk_t* awk, int errnum);
 
 void ase_awk_geterror (
 	ase_awk_t* awk, int* errnum, 
diff --git a/ase/awk/err.c b/ase/awk/err.c
index 7613b418..adee863e 100644
--- a/ase/awk/err.c
+++ b/ase/awk/err.c
@@ -1,5 +1,5 @@
 /*
- * $Id: err.c,v 1.92 2007-03-10 15:22:53 bacon Exp $
+ * $Id: err.c,v 1.93 2007-03-10 15:29:54 bacon Exp $
  *
  * {License}
  */
@@ -217,6 +217,13 @@ void ase_awk_geterror (
 	}
 }
 
+void ase_awk_seterrnum (ase_awk_t* awk, int errnum)
+{
+	awk->errnum = errnum;
+	awk->errlin = 0;
+	awk->errmsg[0] = ASE_T('\0');
+}
+
 void ase_awk_seterror (
 	ase_awk_t* awk, int errnum, ase_size_t errlin,
 	const ase_cstr_t* errarg, ase_size_t argcnt)