diff --git a/lib/modules/Sql.pmod/sql.pike b/lib/modules/Sql.pmod/sql.pike
index 87aa93c1341baf4648b274786e67cae8bbc47afa..da29be0bb45763f55a1f37fc90739f780b28d5f3 100644
--- a/lib/modules/Sql.pmod/sql.pike
+++ b/lib/modules/Sql.pmod/sql.pike
@@ -1,5 +1,5 @@
 /*
- * $Id: sql.pike,v 1.12 1997/06/27 17:55:42 grubba Exp $
+ * $Id: sql.pike,v 1.13 1997/06/27 18:40:37 grubba Exp $
  *
  * Implements the generic parts of the SQL-interface
  *
@@ -8,7 +8,7 @@
 
 //.
 //. File:	sql.pike
-//. RCSID:	$Id: sql.pike,v 1.12 1997/06/27 17:55:42 grubba Exp $
+//. RCSID:	$Id: sql.pike,v 1.13 1997/06/27 18:40:37 grubba Exp $
 //. Author:	Henrik Grubbström (grubba@infovav.se)
 //.
 //. Synopsis:	Implements the generic parts of the SQL-interface.
@@ -164,8 +164,8 @@ void create(void|string|object host, void|string db,
 	  };
 #ifdef PIKE_SQL_DEBUG
 	  if (err) {
-	    Stdio.stderr->write(sprintf("Sql.sql(): Failed to connect using module Sql.%s\n",
-					program_name));
+	    Stdio.stderr->write(sprintf("Sql.sql(): Failed to connect using module Sql.%s (%s)\n",
+					program_name, err[0]));
 	  }
 	} else {
 	  Stdio.stderr->write(sprintf("Sql.sql(): Failed to index module Sql.%s\n",
@@ -175,8 +175,8 @@ void create(void|string|object host, void|string db,
       };
 #ifdef PIKE_SQL_DEBUG
       if (err) {
-	Stdio.stderr->write(sprintf("Sql.sql(): Failed to compile module Sql.%s\n",
-				    program_name));
+	Stdio.stderr->write(sprintf("Sql.sql(): Failed to compile module Sql.%s (%s)\n",
+				    program_name, err[0]));
       }
 #endif /* PIKE_SQL_DEBUG */
     }