diff --git a/ChangeLog b/ChangeLog
index 39fbd5ae1..2a98512fb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2004-06-10 Stefan Jones <stefan.jones@multigig.com>
 
+	* include/ngspice.h:
+	Print perror to the Tk console
+	
 	* src/tclspice.c:
 	test for FILE in tcl_printf being stdout/stderr
 	Could be more than one fd for stdout/stderr
diff --git a/src/include/ngspice.h b/src/include/ngspice.h
index 308d1c607..519a928c4 100644
--- a/src/include/ngspice.h
+++ b/src/include/ngspice.h
@@ -183,6 +183,9 @@ extern int tcl_fprintf(FILE *f, const char *format, ...);
 #undef fprintf
 #define fprintf tcl_fprintf
 
+#undef perror
+#define perror(string) fprintf(stderr,"%s: %s\n",string,sys_errlist[errno])
+
 #endif
 
 #ifdef __MINGW32__