Index: openacs-4/packages/wp-slim/www/attach.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/attach.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/wp-slim/www/attach.tcl	26 Jun 2015 20:56:07 -0000	1.13
+++ openacs-4/packages/wp-slim/www/attach.tcl	27 Jun 2015 20:34:41 -0000	1.14
@@ -23,7 +23,7 @@
 set tmp_size [file size $tmp_filename]
 
 # strip off the C:\directories... crud and just get the file name
-if ![regexp {([^/\\]+)$} $attachment match client_filename] {
+if {![regexp {([^/\\]+)$} $attachment match client_filename]} {
     set client_filename $attachment
 }
 
@@ -35,7 +35,7 @@
     incr exception_count
 }
 
-if { ![empty_string_p [parameter::get -parameter MaxAttachmentSize -default "comments"]] && $tmp_size > [parameter::get -parameter MaxAttachmentSize -default "comments"] } {
+if { [parameter::get -parameter MaxAttachmentSize -default "comments"] ne "" && $tmp_size > [parameter::get -parameter MaxAttachmentSize -default "comments"] } {
     set system_name [ad_system_name]
     set bytes [util_commify_number [parameter::get -parameter MaxAttachmentSize -default "comments"]]
     append exception_text "<li>[_ wp-slim.lt_Your_file_is_too_larg]\n"
@@ -47,7 +47,7 @@
     ad_script_abort
 }
 
-if {[string equal $mime_type "*/*"]} {
+if {$mime_type eq "*/*"} {
     set mime_type "application/octet-stream"
 }
 
@@ -69,4 +69,4 @@
 }
 
 set edit_slide 1
-ad_returnredirect add-edit-slide?[export_vars -url {slide_item_id pres_item_id edit_slide}]
+ad_returnredirect [export_vars -base add-edit-slide {slide_item_id pres_item_id edit_slide}]