Index: openacs-4/contrib/packages/classified-ads/tcl/classified-ads-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/classified-ads/tcl/classified-ads-procs.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/contrib/packages/classified-ads/tcl/classified-ads-procs.tcl	27 Jul 2003 00:46:16 -0000	1.9
+++ openacs-4/contrib/packages/classified-ads/tcl/classified-ads-procs.tcl	30 Jul 2003 04:56:41 -0000	1.10
@@ -23,7 +23,7 @@
 }
 
 
-ad_proc -public classified-ads::main_keyword_exists_p {} {
+ad_proc -public classified-ads::get_main_keyword_id {} {
 	Returns the keyword id of the main category for the package, 0 if not yet created
 } {
 	# These are magic values
@@ -70,7 +70,7 @@
 	root classified-ads category (because we now support per-category
 	custom fields).
 } {
-	set main_keyword_id [classified-ads::main_keyword_exists_p]
+	set main_keyword_id [classified-ads::get_main_keyword_id]
 	set attributes [list type expires_on]
 
 	foreach attrib $attributes {