Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.85 -r1.86
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	13 Dec 2001 21:10:02 -0000	1.85
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	14 Dec 2001 03:12:00 -0000	1.86
@@ -918,7 +918,7 @@
 	@param ds_name
 	@return ds_id
     } { 
-	if {[db_0or1row get_datasource_id_select {}]} {
+	if {[db_0or1row select {}]} {
 	    return $datasource_id
 	} else {
 	    return ""