diff --git a/lib/include/sql.pre.pike b/lib/include/sql.pre.pike
index 0b334a4ce8b2e40990812a74db4d43eb5e69bbb0..80588b9f5ad2bde0fba3b39bbfb8fd336e3be16f 100644
--- a/lib/include/sql.pre.pike
+++ b/lib/include/sql.pre.pike
@@ -1,5 +1,5 @@
 /*
- * $Id: sql.pre.pike,v 1.2 1997/01/11 20:54:12 grubba Exp $
+ * $Id: sql.pre.pike,v 1.3 1997/01/12 02:34:46 grubba Exp $
  *
  * Implements the generic parts of the SQL-interface
  *
@@ -289,7 +289,7 @@ class sql {
     } else {
       res = query("show fields from \'" + table + "\'");
     }
-    res = map(res, lambda (mapping m) {
+    res = map(res, lambda (mapping m, string table) {
       foreach(indices(m), string str) {
 	/* Add the lower case variants */
 	string low_str = lower_case(str);
@@ -306,7 +306,7 @@ class sql {
 	m["table"] = table;
       }
       return(m);
-    } );
+    }, table);
     return(res);
   }
 }