Index: openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/openacs-kernel-procs.tcl,v
diff -u -r1.11.2.2 -r1.11.2.3
--- openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl	12 Dec 2019 09:45:11 -0000	1.11.2.2
+++ openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl	12 Dec 2019 09:45:45 -0000	1.11.2.3
@@ -15,7 +15,7 @@
     {-override_headers {}}
     {-constants ""}
 } {
-    This processes a CSV of objects, taking the csv and calling package_instantiate_object 
+    This processes a CSV of objects, taking the csv and calling package_instantiate_object
     for each one.
 
     @return a list of the created object_ids
@@ -51,7 +51,7 @@
             # ignore empty lines
             if {$n_fields == 0} {
                 continue
-            } 
+            }
 
             # Process the row
             set extra_vars [ns_set create]
@@ -138,21 +138,21 @@
         # Now we are ready to process the code block
         set errno [catch { uplevel 1 $code_block } error]
 
-	if {$errno > 0} {
-	  close $csv_stream
-	}
+        if {$errno > 0} {
+          close $csv_stream
+        }
 
         # handle error, return, break, continue
-	# (source: https://wiki.tcl-lang.org/unless last case)
-	switch -exact -- $errno {
-	    0   {}
-	    1   {return -code error -errorinfo $::errorInfo \
-		     -errorcode $::errorCode $error}
-	    2   {return $error}
-	    3   {break}
-	    4   {}
-	    default     {return -code $errno $error}
-	}
+        # (source: https://wiki.tcl-lang.org/unless last case)
+        switch -exact -- $errno {
+            0   {}
+            1   {return -code error -errorinfo $::errorInfo \
+                     -errorcode $::errorCode $error}
+            2   {return $error}
+            3   {break}
+            4   {}
+            default     {return -code $errno $error}
+        }
     }
 }