Index: openacs-4/packages/edit-this-page/www/etp-subtopic-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp-subtopic-create.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/edit-this-page/www/etp-subtopic-create.tcl	13 Jan 2005 13:58:04 -0000	1.3
+++ openacs-4/packages/edit-this-page/www/etp-subtopic-create.tcl	7 Sep 2013 12:50:58 -0000	1.4
@@ -17,8 +17,8 @@
 
 etp::check_write_access
 
-if { $confirmed == "t" } {
-    if { [empty_string_p $subtopic_name] ||
+if { $confirmed eq "t" } {
+    if { $subtopic_name eq "" ||
          [regexp {[^a-zA-Z0-9\-_]} $subtopic_name] } {
 	ad_return_complaint 1 "[_ edit-this-page.The_subtopic_name_must_be_a_short_identifier]"
     } else {