Index: openacs-4/packages/general-comments/www/file-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/file-add-2.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/general-comments/www/file-add-2.tcl	7 Aug 2017 23:48:12 -0000	1.9
+++ openacs-4/packages/general-comments/www/file-add-2.tcl	24 Apr 2018 16:13:07 -0000	1.10
@@ -23,7 +23,7 @@
     allow_file_attachments {
         set allow_files_p [parameter::get -parameter AllowFileAttachmentsP -default {t}]
         if { $allow_files_p != "t" } {
-            ad_complain "[_ general-comments.lt_Attaching_files_to_co]"            
+            ad_complain "[_ general-comments.lt_Attaching_files_to_co]"
         }
     }
     check_file_size {
@@ -66,11 +66,10 @@
     catch { set what_aolserver_told_us [ns_gifsize $tmp_filename] }
 }
 
-# the AOLserver jpegsize command has some bugs where the height comes 
-# through as 1 or 2 
+# the AOLserver jpegsize command has some bugs where the height comes
+# through as 1 or 2
 if { $what_aolserver_told_us ne "" && [lindex $what_aolserver_told_us 0] > 10 && [lindex $what_aolserver_told_us 1] > 10 } {
-    set original_width [lindex $what_aolserver_told_us 0]
-    set original_height [lindex $what_aolserver_told_us 1]
+    lassign $what_aolserver_told_us original_width original_height
 } else {
     set original_width ""
     set original_height ""
@@ -116,12 +115,12 @@
             end;
         }
     }
-  
+
     db_1row get_revision {
         select content_item.get_latest_revision(:attach_id) as revision_id
         from dual
     }
-    
+
 #    db_dml set_content {
 #    update cr_revisions
 #        set content = empty_blob()