diff --git a/lib/modules/Sql.pmod/sql.pike b/lib/modules/Sql.pmod/sql.pike
index da29be0bb45763f55a1f37fc90739f780b28d5f3..483f8a8a510fd3fe6cf05172d252b17eed829880 100644
--- a/lib/modules/Sql.pmod/sql.pike
+++ b/lib/modules/Sql.pmod/sql.pike
@@ -1,5 +1,5 @@
 /*
- * $Id: sql.pike,v 1.13 1997/06/27 18:40:37 grubba Exp $
+ * $Id: sql.pike,v 1.14 1997/07/02 00:27:27 grubba Exp $
  *
  * Implements the generic parts of the SQL-interface
  *
@@ -8,7 +8,7 @@
 
 //.
 //. File:	sql.pike
-//. RCSID:	$Id: sql.pike,v 1.13 1997/06/27 18:40:37 grubba Exp $
+//. RCSID:	$Id: sql.pike,v 1.14 1997/07/02 00:27:27 grubba Exp $
 //. Author:	Henrik Grubbstr�m (grubba@infovav.se)
 //.
 //. Synopsis:	Implements the generic parts of the SQL-interface.
@@ -79,7 +79,7 @@ void create(void|string|object host, void|string db,
 
   array(string) program_names;
 
-  if (host != replace(host, ({ ":", "/", "@" }), ({ "", "", "" }))) {
+  if (host && (host != replace(host, ({ ":", "/", "@" }), ({ "", "", "" })))) {
 
     // The hostname is on the format:
     //