Index: openacs-4/contrib/packages/classified-ads/tcl/ads-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/classified-ads/tcl/ads-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/contrib/packages/classified-ads/tcl/ads-procs.tcl	29 Jul 2003 09:10:42 -0000	1.10
+++ openacs-4/contrib/packages/classified-ads/tcl/ads-procs.tcl	30 Jul 2003 04:56:41 -0000	1.11
@@ -137,7 +137,7 @@
 	#
 
 	if {[empty_string_p $category_id]} {
-	    set category_id [classified-ads::categories::package_category_exists_p]
+	    set category_id [classified-ads::categories::get_package_keyword_id]
 	}
 
 	#
@@ -149,7 +149,7 @@
 
 	if {[llength $custom_fields_list] > 0} {
 		foreach field $custom_fields_list {
-			append custom_fields ", ads.$field"
+			append custom_fields ", ads.[lindex $field 0]"
 		}
 	}