diff --git a/ase/utl/stdio.c b/ase/utl/stdio.c
index 8fac66f7..84c8e478 100644
--- a/ase/utl/stdio.c
+++ b/ase/utl/stdio.c
@@ -1,5 +1,5 @@
 /*
- * $Id: stdio.c,v 1.5 2007-02-24 14:45:00 bacon Exp $
+ * $Id: stdio.c,v 1.6 2007-02-28 09:57:12 bacon Exp $
  *
  * {License}
  */
@@ -306,6 +306,17 @@ static ase_char_t* __adjust_format (const ase_char_t* format)
 
 #endif
 
+int ase_dprintf (const ase_char_t* fmt, ...)
+{
+	int n;
+	va_list ap;
+
+	va_start (ap, fmt);
+	n = ase_vfprintf (stderr, fmt, ap);
+	va_end (ap);
+	return n;
+}
+
 FILE* ase_fopen (const ase_char_t* path, const ase_char_t* mode)
 {
 #if defined(_WIN32)
diff --git a/ase/utl/stdio.h b/ase/utl/stdio.h
index ac5241be..39935bca 100644
--- a/ase/utl/stdio.h
+++ b/ase/utl/stdio.h
@@ -1,5 +1,5 @@
 /*
- * $Id: stdio.h,v 1.4 2007-02-23 10:53:39 bacon Exp $
+ * $Id: stdio.h,v 1.5 2007-02-28 09:57:13 bacon Exp $
  */
 
 #ifndef _ASE_UTL_STDIO_H_
@@ -44,6 +44,7 @@ int ase_fprintf (FILE* file, const ase_char_t* fmt, ...);
 int ase_printf (const ase_char_t* fmt, ...);
 #endif
 
+int ase_dprintf (const ase_char_t* fmt, ...);
 FILE* ase_fopen (const ase_char_t* path, const ase_char_t* mode);
 FILE* ase_popen (const ase_char_t* cmd, const ase_char_t* mode);