Index: openacs-4/packages/faq/www/one-faq.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/one-faq.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/faq/www/one-faq.tcl	19 Sep 2013 16:36:33 -0000	1.10
+++ openacs-4/packages/faq/www/one-faq.tcl	3 Oct 2013 09:08:36 -0000	1.10.2.1
@@ -21,7 +21,7 @@
 
 faq::get_instance_info -arrayname faq_info -faq_id $faq_id
 
-if { [empty_string_p $faq_info(faq_name)] } {
+if { $faq_info(faq_name) eq "" } {
     ns_returnnotfound
     ad_script_abort
 }
@@ -31,7 +31,7 @@
 # Use Categories?
 set use_categories_p [parameter::get -parameter "EnableCategoriesP" -default 0]
 
-if { $use_categories_p == 1 && [exists_and_not_null category_id] } {
+if { $use_categories_p == 1 && $category_id ne "" } {
     db_multirow one_question categorized_faq "" {}
 } else {
     db_multirow one_question uncategorized_faq "" {}
@@ -41,9 +41,9 @@
 # Site-Wide Categories
 if { $use_categories_p == 1} {
     set package_url [ad_conn package_url]      
-    if { ![empty_string_p $category_id] } {
+    if { $category_id ne "" } {
 	set category_name [category::get_name $category_id]
-	if { [empty_string_p $category_name] } {
+	if { $category_name eq "" } {
 	    ad_return_exception_page 404 "No such category" "Site-wide \
           Category with ID $category_id doesn't exist"
             return