Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	23 Sep 2002 11:25:02 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	7 Jun 2003 01:47:32 -0000	1.6.2.1
@@ -8,7 +8,7 @@
     @author Bryan Quinn (bquinn@arsdigita.com)
 
     @creation-date 16 June 2000
-    @cvs-id $Id$
+    @cvs-id tcl-documentation-procs.tcl,v 1.6 2002/09/23 11:25:02 jeffd Exp
 }
 
 ####################
@@ -1538,7 +1538,7 @@
     
     # check to make sure path is to an authorized directory
     set tmpdir_list [ad_parameter_all_values_as_list TmpDir]
-    if [empty_string_p $tmpdir_list] {
+    if { [empty_string_p $tmpdir_list] } {
 	set tmpdir_list [list "/var/tmp" "/tmp"]
     }
     
@@ -1809,7 +1809,7 @@
     @creation-date August 2000
 } {
     if { ![empty_string_p [string trim $value]] } {
-	if ![regexp {^\(?([1-9][0-9]{2})\)?(-|\.|\ )?([0-9]{3})(-|\.|\ )?([0-9]{4})} $value] {
+	if { ![regexp {^\(?([1-9][0-9]{2})\)?(-|\.|\ )?([0-9]{3})(-|\.|\ )?([0-9]{4})} $value] } {
 	    ad_complain "$value does not appear to be a valid U.S. phone
 	    number."
 	    return 0