Index: openacs-4/packages/acs-admin/www/apm/version-parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-parameters.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-admin/www/apm/version-parameters.tcl	17 Sep 2003 18:35:47 -0000	1.5
+++ openacs-4/packages/acs-admin/www/apm/version-parameters.tcl	10 Jan 2007 21:21:59 -0000	1.6
@@ -49,14 +49,14 @@
 <blockquote>
 "
 
-if { ![empty_string_p $dimensional_list] } {
+if { $dimensional_list ne "" } {
     append body "[ad_dimensional $dimensional_list]<p>"
 }
 
 # LARS hack
 set sections [lindex [lindex $dimensional_list 0] 3]
 foreach section $sections {
-    if { [string equal $section_name [lindex $section 0]] } {
+    if {$section_name eq [lindex $section 0]} {
         set section_name [lindex $section 1]
         break
     }